| line |
true |
false |
branch |
|
21
|
0 |
1 |
if $impclass |
|
24
|
1 |
0 |
if ($nid =~ /^[A-Za-z\d][A-Za-z\d\-]*\z/) { } |
|
28
|
0 |
1 |
if $id =~ /^\d/ |
|
32
|
1 |
0 |
unless (@{"${impclass}::ISA";}) |
|
33
|
1 |
0 |
unless (exists $require_attempted{$impclass}) |
|
37
|
0 |
1 |
if $@ and not $@ =~ /Can\'t locate.*in \@INC/ |
|
40
|
0 |
1 |
unless @{"${impclass}::ISA";} |
|
44
|
0 |
0 |
if $^W |
|
59
|
0 |
2 |
if (@_) |
|
73
|
2 |
0 |
if defined $nid |
|
80
|
1 |
4 |
if (@_) |
|
83
|
1 |
0 |
if (defined $new) { } |
|
91
|
2 |
3 |
unless $opaque =~ s/^[^:]*:// |
|
99
|
0 |
0 |
if not $nid =~ /[A-Z]/ or $nid =~ /%/ |
|
100
|
0 |
0 |
if $new == $self |