| line |
true |
false |
branch |
|
19
|
0 |
761 |
unless defined $bool |
|
20
|
0 |
761 |
if (keys %args) |
|
28
|
0 |
754 |
if ($b eq '*') { } |
|
|
595 |
159 |
elsif ($b eq 'JSON::PP') { } |
|
|
0 |
159 |
elsif ($b eq 'boolean') { } |
|
|
159 |
0 |
elsif ($b eq 'perl' or $b eq 'perl_experimental') { } |
|
86
|
1579 |
7 |
@{$_[0]{'bool_class'};} ? : |
|
103
|
448 |
932 |
if ($item eq "+") |
|
107
|
10 |
1370 |
if (builtin::blessed($item)) |
|
126
|
1 |
1369 |
if ($item =~ /^\:(.*)/) { } |
|
128
|
0 |
1 |
unless ($class =~ /\A[A-Za-z0-9_:]+\z/) |
|
135
|
0 |
1369 |
unless ($class =~ /\A[A-Za-z0-9_:]+\z/) |
|
155
|
20800 |
768 |
unless defined $implicit |
|
157
|
21568 |
0 |
if ($tag) |
|
158
|
681 |
20887 |
if (ref $tag eq 'Regexp') { } |
|
168
|
20821 |
747 |
if ($implicit) |
|
172
|
34140 |
8249 |
if ($type eq 'equals') { } |
|
|
5994 |
2255 |
elsif ($type eq 'regex') { } |
|
|
2255 |
0 |
elsif ($type eq 'all') { } |
|
174
|
34140 |
0 |
unless (exists $res->{'equals'}{$match}) |
|
206
|
1394 |
149 |
if ($tag and ref $tag eq 'Regexp') { } |
|
|
149 |
0 |
elsif ($tag) { } |
|
225
|
1512 |
19462 |
if (my $flags = $args{'flags'}) |
|
230
|
757 |
18705 |
if (my $regex = $args{'regex'}) |
|
235
|
26 |
18679 |
if (my $regex = $args{'class_matches'}) |
|
240
|
156 |
18523 |
if (my $bool = $args{'bool'} and $] >= "5.036") |
|
246
|
595 |
17928 |
if (my $class_equals = $args{'class_equals'}) |
|
253
|
2 |
17926 |
if (my $class_isa = $args{'class_isa'}) |
|
258
|
0 |
17926 |
if (my $tied_equals = $args{'tied_equals'}) |
|
265
|
17074 |
852 |
if (defined(my $equals = $args{'equals'})) |
|
272
|
24 |
828 |
if (defined(my $scalarref = $args{'scalarref'})) |
|
278
|
24 |
804 |
if (defined(my $refref = $args{'refref'})) |
|
284
|
24 |
780 |
if (defined(my $coderef = $args{'coderef'})) |
|
290
|
24 |
756 |
if (defined(my $glob = $args{'glob'})) |
|
296
|
756 |
0 |
if (my $undef = $args{'undefined'}) |
|
309
|
697 |
6964 |
if ($tag) { } |
|
310
|
7 |
690 |
if ($tag eq "!") |
|
314
|
56 |
634 |
if (not $res and my $matches = $resolvers->{'tags'}) |
|
317
|
56 |
20 |
if ($tag =~ /$re/) |
|
329
|
2622 |
4342 |
if ($event->{'style'} ne 1) |
|
334
|
4412 |
620 |
if (my $equals = $res->{'equals'}) |
|
335
|
426 |
3986 |
if (exists $equals->{$value}) |
|
337
|
82 |
344 |
if (ref $res eq "CODE") |
|
343
|
3973 |
633 |
if (my $regex = $res->{'regex'}) |
|
347
|
560 |
13525 |
if (@matches) |
|
352
|
4019 |
27 |
if (my $catch_all = $res->{'all'}) |
|
353
|
4019 |
0 |
if (ref $catch_all eq "CODE") |
|
368
|
35 |
1195 |
if ($tag) |
|
369
|
6 |
29 |
if (my $equals = $resolvers->{'tag'}{$tag}) |
|
372
|
6 |
0 |
if $on_create |
|
375
|
29 |
0 |
if (my $matches = $resolvers->{'tags'}) |
|
379
|
29 |
2 |
if ($tag =~ /$re/) |
|
381
|
15 |
14 |
if $on_create |
|
399
|
83 |
1242 |
if ($tag) |
|
400
|
24 |
59 |
if (my $equals = $resolvers->{'tag'}{$tag}) |
|
403
|
23 |
1 |
if $on_create |
|
406
|
59 |
0 |
if (my $matches = $resolvers->{'tags'}) |
|
410
|
59 |
87 |
if ($tag =~ /$re/) |
|
412
|
31 |
28 |
if $on_create |