package ShipIt::Step::Tag; use strict; use base 'ShipIt::Step'; sub run { my ($self, $state) = @_; my $ver = $state->version; if ($state->dry_run) { print "DRY-RUN. Would have tagged version $ver.\n"; return; } $state->vc->tag_version($ver, "Tagging version '$ver' using shipit."); } 1;