1package Minilla::Release::Tag; 2use strict; 3use warnings; 4use utf8; 5 6use Minilla::Util qw(cmd); 7use Minilla::Logger; 8 9sub run { 10 my ($self, $project, $opts) = @_; 11 12 my $ver = $project->version; 13 if ( $opts->{dry_run} ) { 14 infof("DRY-RUN. Would have tagged version $ver.\n"); 15 return; 16 } 17 18 my $tag = $project->format_tag($ver); 19 cmd('git', 'tag', $tag); 20 cmd('git', "push", 'origin', tag => $tag); 21} 22 231; 24 25