File Coverage

lib/Perlmazing/Perlmazing/mkdir.pm
Criterion Covered Total %
statement 8 9 88.8
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 12 15 80.0


line stmt bran cond sub pod time code
1 1     1   10 use Perlmazing;
  1         2  
  1         6  
2 1     1   7 use File::Path 'make_path';
  1         2  
  1         214  
3            
4             sub main {
5 1 50   1 0 5 if (@_ == 1) {
6 1         512 make_path $_[0];
7             } else {
8 0           make_path $_[0], {mode => $_[1]};
9             }
10             }
11            
12             1;