| line |
true |
false |
branch |
|
84
|
23 |
53 |
unless ($pred->apply($object)) |
|
100
|
2 |
7 |
if ($pred->apply($object)) |
|
115
|
1 |
1 |
$predicate->apply($object) ? : |
|
151
|
4 |
6 |
unless $ref |
|
152
|
3 |
3 |
$ref eq $ref_type ? : |
|
163
|
7 |
4 |
unless p_blessed()->apply($object) |
|
164
|
3 |
1 |
$object->isa($isa) ? : |
|
175
|
5 |
15 |
unless p_blessed()->apply($object) |
|
176
|
10 |
5 |
$object->can($method) ? : |
|
184
|
1 |
1 |
defined $method ? : |
|
189
|
2 |
5 |
p_defined()->apply($val) && $val eq $str ? : |
|
197
|
1 |
1 |
defined $method ? : |
|
202
|
3 |
5 |
p_is_number()->apply($val) && $val == $number ? : |
|
210
|
1 |
2 |
defined $method ? : |
|
215
|
7 |
6 |
p_defined()->apply($val) && $val =~ /$regex/ ? : |
|
223
|
1 |
1 |
defined $method ? : |
|
228
|
4 |
5 |
p_defined()->apply($val) && index($val, $substring) > -1 ? : |
|
237
|
12 |
29 |
if ($method) { } |
|
238
|
8 |
4 |
if (p_can($method)->apply($object)) { } |