| line |
true |
false |
branch |
|
16
|
1 |
2 |
if ($type eq 'env') { } |
|
|
2 |
0 |
elsif ($type eq 'import') { } |
|
28
|
3 |
3 |
if (not ref $spec) { } |
|
|
3 |
0 |
elsif (ref $spec eq 'HASH') { } |
|
53
|
0 |
8 |
$cls eq 'Sub::Stubber' ? : |
|
61
|
5 |
0 |
unless ($subname =~ /::/) |
|
68
|
1 |
4 |
if (defined $value and ref $value eq 'CODE') { } |
|
|
1 |
3 |
elsif (defined $old_proto) { } |
|
85
|
5 |
0 |
$cls eq 'Sub::Stubber' ? : |
|
91
|
3 |
0 |
$cls eq 'Sub::Stubber' ? : |
|
98
|
1 |
2 |
$cls eq 'Sub::Stubber' ? : |
|
99
|
0 |
3 |
if (not exists $PkgCache{$cpkg} and @_ == 0) |
|
103
|
0 |
3 |
if $obj->triggered |
|
120
|
0 |
3 |
unless ($obj) |
|
127
|
0 |
3 |
if ($obj->triggered) |
|
133
|
1 |
0 |
if ($ENV{$env}) |
|
143
|
1 |
0 |
if ($_[$i] eq $import) |
|
151
|
1 |
1 |
if ($found_import_trigger) |
|
159
|
3 |
0 |
if ($cls->isa('Exporter')) |
|
168
|
3 |
4 |
if ($cls ne 'Sub::Stubber') |