File Coverage

blib/lib/Git/TagVersion/Cmd/Command.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Git::TagVersion::Cmd::Command;
2              
3 1     1   1898 use Moose;
  1         3  
  1         9  
4              
5             our $VERSION = '1.01'; # VERSION
6             # ABSTRACT: base class for all git-tag-version subcommands
7              
8             extends 'MooseX::App::Cmd::Command';
9              
10 1     1   6664 use Git::TagVersion;
  1         3  
  1         151  
11              
12             has 'fetch' => (
13             is => 'rw', isa => 'Bool', default => 0,
14             traits => [ 'Getopt' ],
15             cmd_aliases => 'f',
16             documentation => 'fetch remote refs first',
17             );
18              
19             has 'repo' => (
20             is => 'ro', isa => 'Str', default => '.',
21             traits => [ 'Getopt' ],
22             cmd_aliases => 'r',
23             documentation => 'path to git repository',
24             );
25              
26             has 'tag_version' => (
27             is => 'ro', isa => 'Git::TagVersion', lazy => 1,
28             traits => [ 'NoGetopt' ],
29             default => sub {
30             my $self = shift;
31             return Git::TagVersion->new(
32             fetch => $self->fetch,
33             root => $self->repo,
34             );
35             },
36             );
37              
38             1;
39              
40             __END__
41              
42             =pod
43              
44             =encoding UTF-8
45              
46             =head1 NAME
47              
48             Git::TagVersion::Cmd::Command - base class for all git-tag-version subcommands
49              
50             =head1 VERSION
51              
52             version 1.01
53              
54             =head1 AUTHOR
55              
56             Markus Benning <ich@markusbenning.de>
57              
58             =head1 COPYRIGHT AND LICENSE
59              
60             This software is copyright (c) 2015 by Markus Benning <ich@markusbenning.de>.
61              
62             This is free software; you can redistribute it and/or modify it under
63             the same terms as the Perl 5 programming language system itself.
64              
65             =cut