| blib/lib/Zoidberg/Utils/FileSystem.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 28 | 28.5 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 0 | 33 | $_[0] ? : |
| 22 | 17 | 16 | unless ($string =~ m[^/]) |
| 23 | 0 | 17 | if ($string =~ m[^~([^/]*)]) { } |
| 0 | 17 | elsif ($string =~ s[^\.(\.+)(/|$)][]) { } | |
| 24 | 0 | 0 | if ($1) { } |
| 46 | 17 | 0 | @_ ? : |
| 47 | 17 | 0 | unless $dir eq '/' |
| 50 | 0 | 17 | unless opendir DIR, $dir |
| 65 | 0 | 0 | if ($number > 256) { } |
| 75 | 0 | 0 | unless defined $file |
| 99 | 0 | 0 | if $opt |
| 103 | 0 | 0 | if -d $_ and not $_ =~ /^\.{1,2}$/ |
| 104 | 0 | 0 | if not $_ =~ /^\.{1,2}$/ |
| 105 | 0 | 0 | @$regexps ? : |