| line |
true |
false |
branch |
|
33
|
22 |
2 |
unless (defined $pool) |
|
60
|
5 |
144 |
if scalar @_ != 2 or not defined $contractor or ref $contractor ne '' or not $contractor =~ /::/ |
|
79
|
0 |
49 |
if scalar @_ != 2 |
|
81
|
0 |
49 |
if not defined $contract or ref $contract ne 'Sub::Contract' |
|
87
|
0 |
49 |
if $self->has_contract($contractor) |
|
126
|
5 |
45 |
if scalar @_ != 2 or not defined $contractor or ref $contractor ne '' or not $contractor =~ /::/ |
|
145
|
0 |
10 |
if scalar @_ != 0 or not defined $match or ref $match ne '' |
|
149
|
13 |
27 |
if $name =~ /^$match$/ |