| line |
true |
false |
branch |
|
18
|
2 |
22 |
unless $_[0] |
|
19
|
0 |
22 |
unless $_[0] =~ m[([^/]+)/*$] |
|
24
|
0 |
9 |
unless my $f = filename(shift()) |
|
25
|
0 |
9 |
unless $f =~ /\.([a-z0-9]{1,7})$/i |
|
27
|
6 |
3 |
@_ ? : |
|
30
|
0 |
3 |
unless my $f = filename($_[0]) |
|
36
|
1 |
7 |
unless $_[0] |
|
37
|
0 |
7 |
unless my $a = abs_path($_[0]) |
|
41
|
0 |
0 |
unless abs_loc($_[0]) |
|
46
|
0 |
2 |
unless my $abs = Cwd::abs_path($_[0]) |
|
47
|
0 |
2 |
unless -f $abs |
|
53
|
0 |
2 |
unless my $abs = Cwd::abs_path($_[0]) |
|
54
|
0 |
2 |
unless -d $abs |
|
60
|
0 |
9 |
unless my $abs = Cwd::abs_path($_[0]) |
|
61
|
0 |
9 |
unless -e $abs |
|
68
|
0 |
0 |
unless my $abs = Cwd::abs_path($_[0]) |
|
69
|
0 |
0 |
unless -e $abs |
|
75
|
0 |
2 |
unless my $abs = Cwd::abs_path($_[0]) |
|
76
|
1 |
1 |
unless -f $abs |
|
82
|
0 |
1 |
unless my $abs = Cwd::abs_path($_[0]) |
|
83
|
0 |
1 |
unless -d $abs |
|
91
|
2 |
3 |
$string eq $arg ? : |
|
|
5 |
3 |
unless ref $arg |
|
93
|
1 |
2 |
if (ref $arg eq 'ARRAY') { } |
|
|
2 |
0 |
elsif (ref $arg eq 'Regexp') { } |
|
94
|
0 |
2 |
if $string eq $_ |
|
98
|
1 |
1 |
if $string =~ /$arg/ |