| line |
true |
false |
branch |
|
216
|
0 |
13 |
unless (defined $key) |
|
218
|
0 |
0 |
unless defined $x |
|
223
|
2 |
11 |
if $key eq '*' |
|
227
|
3 |
8 |
if (ref $key eq 'ARRAY' and ~~@$key) |
|
230
|
1 |
2 |
if (~~@$key >= 2 and $$key[0] eq ':str' and ref $$key[1] eq 'Regexp') { } |
|
|
2 |
0 |
elsif (not grep({ref $_;} @$key)) { } |
|
245
|
6 |
5 |
if (ref $key eq 'Regexp') |
|
247
|
2 |
3 |
if $scope eq 'obj' and $ref and $ref =~ /$key/ |
|
250
|
1 |
0 |
if $scope eq 'str' and not $ref and $x =~ /$key/ |
|
255
|
1 |
7 |
if ($key eq ':str') |
|
257
|
1 |
0 |
unless $ref |
|
262
|
1 |
6 |
if $key eq $ref |
|
267
|
6 |
0 |
if ($blessed) |
|
271
|
0 |
6 |
if $key eq '-caller' and $x->$DOES('Throwable::Taxonomy::Caller') |
|
275
|
0 |
6 |
if $key eq '-environment' and $x->$DOES('Throwable::Taxonomy::Environment') |
|
279
|
1 |
5 |
if $key eq '-notimplemented' and $x->$DOES('Throwable::Taxonomy::NotImplemented') |
|
283
|
1 |
4 |
if $x->$DOES($key) |
|
288
|
3 |
1 |
if ($blessed and $x->can('TYPE')) |
|
290
|
2 |
1 |
if (ref $key eq 'Regexp') |
|
292
|
2 |
0 |
if $scope ne 'str' and $x->TYPE =~ /$key/ |
|
296
|
1 |
0 |
if $x->TYPE eq $key |