| line |
true |
false |
branch |
|
24
|
1 |
0 |
unless @_ |
|
32
|
0 |
6 |
unless @_ |
|
44
|
0 |
8 |
if ($name =~ m[/]) { } |
|
49
|
0 |
8 |
unless $self->can($method) |
|
59
|
6 |
8 |
unless my $next = $self->get_next_spec |
|
60
|
0 |
8 |
if $next =~ m[/] |
|
61
|
0 |
8 |
unless $next =~ /^(\-?)(\w+)(?:=(.*))?$/ |
|
64
|
0 |
8 |
if $1 |
|
65
|
0 |
8 |
$3 ? : |
|
73
|
0 |
8 |
unless length $next |
|
74
|
0 |
8 |
if ($next =~ /:/) |
|
79
|
0 |
0 |
unless $next |
|
90
|
0 |
0 |
if (-e $path) |
|
91
|
0 |
0 |
unless open my $fh, '<', $path |
|
105
|
0 |
10 |
if $@ |
|
115
|
0 |
0 |
unless $$hash{$modname} |
|
126
|
0 |
0 |
unless $modname =~ /$regex/ |
|
212
|
0 |
0 |
unless @args == 1 |
|
215
|
0 |
0 |
unless ref $_ |
|
221
|
0 |
0 |
unless @args == 1 |
|
228
|
0 |
0 |
unless defined $ENV{'PERL5LIB'} |
|
242
|
0 |
0 |
unless ref $_ |
|
261
|
0 |
0 |
unless ref $_ |