File Coverage

blib/lib/App/CmdDirs/Traverser/Subversion.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::Subversion;
2 2     2   854 use base 'App::CmdDirs::Traverser::Base';
  2         5  
  2         353  
3 2     2   11 use strict;
  2         11  
  2         79  
4 2     2   11 use warnings;
  2         3  
  2         194  
5              
6             # Return false if the passed directory does not have a .svn subdirectory
7             sub test {
8 2     2 0 3 my ($self, $dir) = @_;
9              
10 2         32 return (-d "$dir/.svn");
11             }
12              
13             1;