| line |
true |
false |
branch |
|
38
|
4 |
3 |
unless ($inited) |
|
55
|
3 |
3 |
if $lock{$file} |
|
58
|
0 |
3 |
unless (ref $INC[0] and $INC[0] == $self) |
|
59
|
0 |
0 |
unless not ref $_ |
|
60
|
0 |
0 |
$REPAIR_INC ? : |
|
61
|
0 |
0 |
if ($REPAIR_INC) |
|
64
|
0 |
0 |
unless ref $INC[$i] |
|
65
|
0 |
0 |
if ($INC[$i] == $self) |
|
82
|
1 |
2 |
if $@ |
|
88
|
2 |
1 |
if $INC{$file} |
|
104
|
1 |
371 |
unless -f $file |
|
106
|
0 |
371 |
unless open my $src, '<', $file |
|
110
|
29 |
186858 |
if $_ =~ $pkg->regex |
|
115
|
371 |
186516 |
if eof $src |
|
122
|
36 |
5 |
$self->can('rules') ? : |
|
126
|
2 |
31 |
if ($action == 1) { } |
|
|
29 |
2 |
elsif ($action == 2) { } |
|
146
|
20 |
33 |
if (@_ == 1) { } |
|
|
32 |
1 |
elsif (@_ % 2 == 0) { } |
|
147
|
10 |
10 |
if (ref $_[0] and &reftype($_[0]) eq 'HASH') { } |
|
176
|
5 |
5 |
unless @_ > 1 |
|
177
|
15 |
2 |
unless $_[1] eq $_ |
|
|
8 |
2 |
if (@_ == 1 or @_ > 2 or @_ == 2 and &first(sub {
$_[1] eq "&$_" unless $_[1] eq $_;
}
, @EXPORT_OK, map({":$_";} keys %EXPORT_TAGS))) { } |
|
189
|
36 |
5 |
if UNIVERSAL::can($_[0], 'isa') and $_[0]->isa('Devel::FIXME') |