File Coverage

blib/lib/App/GitGot/Command/that.pm
Criterion Covered Total %
statement 8 12 66.6
branch 0 4 0.0
condition 0 6 0.0
subroutine 3 4 75.0
pod n/a
total 11 26 42.3


line stmt bran cond sub pod time code
1             package App::GitGot::Command::that;
2             our $AUTHORITY = 'cpan:GENEHACK';
3             $App::GitGot::Command::that::VERSION = '1.337';
4             # ABSTRACT: check if a given repository is managed
5 15     15   9796 use 5.014;
  15         58  
6              
7 15     15   89 use Moo;
  15         31  
  15         102  
8             extends 'App::GitGot::Command';
9 15     15   5304 use namespace::autoclean;
  15         44  
  15         96  
10              
11             sub _execute {
12 0     0     my( $self, $opt, $args ) = @_;
13 0           my $path = pop @$args;
14              
15 0 0 0       defined $path and -d $path
      0        
16             or say STDERR 'ERROR: You must provide a path to a repo to check' and exit 1;
17              
18 0 0         $self->_path_is_managed( $path ) or exit 1;
19             }
20              
21             1;
22              
23             ## FIXME docs
24              
25             __END__