File Coverage

blib/lib/Minilla/Release/Tag.pm
Criterion Covered Total %
statement 15 23 65.2
branch 0 2 0.0
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 20 32 62.5


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