The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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;