File Coverage

blib/lib/App/CmdDirs/Traverser/Git.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package App::CmdDirs::Traverser::Git;
2 2     2   4886 use base 'App::CmdDirs::Traverser::Base';
  2         4  
  2         371  
3 2     2   12 use strict;
  2         4  
  2         91  
4 2     2   10 use warnings;
  2         8  
  2         185  
5              
6             # Return false if the passed directory does not have a .git subdirectory
7             sub test {
8 2     2 0 12 my ($self, $dir) = @_;
9              
10 2         75 return (-d "$dir/.git");
11             }
12              
13             1;