File Coverage

blib/lib/Git/TagVersion/Cmd/Command/next.pm
Criterion Covered Total %
statement 3 7 42.8
branch 0 2 0.0
condition n/a
subroutine 1 2 50.0
pod 1 1 100.0
total 5 12 41.6


line stmt bran cond sub pod time code
1             package Git::TagVersion::Cmd::Command::next;
2              
3 1     1   1298 use Moose;
  1         2  
  1         6  
4              
5             extends 'Git::TagVersion::Cmd::Command';
6              
7             our $VERSION = '1.01'; # VERSION
8             # ABSTRACT: print next version
9              
10             sub execute {
11 0     0 1   my ( $self, $opt, $args ) = @_;
12            
13 0 0         if( defined $self->tag_version->next_version ) {
14 0           print $self->tag_version->next_version->as_string."\n";
15             }
16              
17 0           return;
18             }
19              
20             1;
21              
22             __END__
23              
24             =pod
25              
26             =encoding UTF-8
27              
28             =head1 NAME
29              
30             Git::TagVersion::Cmd::Command::next - print next version
31              
32             =head1 VERSION
33              
34             version 1.01
35              
36             =head1 AUTHOR
37              
38             Markus Benning <ich@markusbenning.de>
39              
40             =head1 COPYRIGHT AND LICENSE
41              
42             This software is copyright (c) 2015 by Markus Benning <ich@markusbenning.de>.
43              
44             This is free software; you can redistribute it and/or modify it under
45             the same terms as the Perl 5 programming language system itself.
46              
47             =cut