blib/lib/No/Worries/Dir.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 25 | 32 | 78.1 |
line | true | false | branch |
---|---|---|---|
35 | 0 | 2 | unless chdir $path |
48 | 1 | 2 | if ($path =~ m[^(.+)/[^/]+$] and not -d $1) |
51 | 0 | 3 | unless mkdir $path, $mode |
65 | 0 | 4 | if @_ |
66 | 4 | 0 | unless defined $option{'mode'} |
68 | 2 | 2 | unless $path eq '' or -d $path |
83 | 1 | 2 | if @_ |
84 | 2 | 1 | unless defined $option{'mode'} |
86 | 1 | 2 | unless mkdir $path, $option{'mode'} |
96 | 1 | 12 | if $path eq '' |
98 | 2 | 10 | if $path eq '' |
100 | 2 | 8 | if $path eq '' |
102 | 2 | 6 | if $path eq '' |
114 | 0 | 2 | unless opendir $dh, $path |
116 | 0 | 2 | unless closedir $dh |
127 | 0 | 3 | unless rmdir $path |