| line |
true |
false |
branch |
|
22
|
2 |
1 |
if (ref $opt eq 'HASH' and defined $opt->{'prune'}) |
|
24
|
3 |
1 |
/\A ([^:]*) : ([A-Z]*)\z/imsx ? : |
|
29
|
2 |
4 |
if ($frag eq '*') { } |
|
|
0 |
4 |
elsif ($frag eq '?') { } |
|
40
|
3 |
1 |
$mod =~ /i/imsx ? : |
|
44
|
0 |
3 |
unless opendir my $hdl, $root |
|
53
|
0 |
22 |
unless $self->{'hdl'} |
|
61
|
19 |
76 |
unless (defined $ele) |
|
66
|
3 |
16 |
unless defined $ndir |
|
71
|
0 |
16 |
unless opendir $self->{'hdl'}, $full_dir |
|
77
|
57 |
19 |
if (-d $full_ele) |
|
78
|
38 |
19 |
if $ele eq '.' or $ele eq '..' |
|
81
|
3 |
19 |
if $ele =~ /$p/imsx |
|
89
|
3 |
19 |
unless defined $ele |