| line |
true |
false |
branch |
|
19
|
0 |
770 |
unless defined $bool |
|
20
|
0 |
770 |
if (keys %args) |
|
28
|
0 |
763 |
if ($b eq '*') { } |
|
|
595 |
168 |
elsif ($b eq 'JSON::PP') { } |
|
|
0 |
168 |
elsif ($b eq 'boolean') { } |
|
|
168 |
0 |
elsif ($b eq 'perl' or $b eq 'perl_experimental') { } |
|
86
|
1597 |
7 |
@{$_[0]{'bool_class'};} ? : |
|
103
|
457 |
932 |
if ($item eq "+") |
|
107
|
10 |
1379 |
if (builtin::blessed($item)) |
|
126
|
1 |
1378 |
if ($item =~ /^\:(.*)/) { } |
|
128
|
0 |
1 |
unless ($class =~ /\A[A-Za-z0-9_:]+\z/) |
|
135
|
0 |
1378 |
unless ($class =~ /\A[A-Za-z0-9_:]+\z/) |
|
155
|
21052 |
768 |
unless defined $implicit |
|
157
|
21820 |
0 |
if ($tag) |
|
158
|
681 |
21139 |
if (ref $tag eq 'Regexp') { } |
|
168
|
21073 |
747 |
if ($implicit) |
|
172
|
34554 |
8339 |
if ($type eq 'equals') { } |
|
|
6066 |
2273 |
elsif ($type eq 'regex') { } |
|
|
2273 |
0 |
elsif ($type eq 'all') { } |
|
174
|
34554 |
0 |
unless (exists $res->{'equals'}{$match}) |
|
206
|
1394 |
149 |
if ($tag and ref $tag eq 'Regexp') { } |
|
|
149 |
0 |
elsif ($tag) { } |
|
225
|
1530 |
19696 |
if (my $flags = $args{'flags'}) |
|
230
|
766 |
18930 |
if (my $regex = $args{'regex'}) |
|
235
|
26 |
18904 |
if (my $regex = $args{'class_matches'}) |
|
240
|
165 |
18739 |
if (my $bool = $args{'bool'} and $] >= "5.036") |
|
246
|
595 |
18144 |
if (my $class_equals = $args{'class_equals'}) |
|
253
|
2 |
18142 |
if (my $class_isa = $args{'class_isa'}) |
|
258
|
0 |
18142 |
if (my $tied_equals = $args{'tied_equals'}) |
|
265
|
17281 |
861 |
if (defined(my $equals = $args{'equals'})) |
|
272
|
24 |
837 |
if (defined(my $scalarref = $args{'scalarref'})) |
|
278
|
24 |
813 |
if (defined(my $refref = $args{'refref'})) |
|
284
|
24 |
789 |
if (defined(my $coderef = $args{'coderef'})) |
|
290
|
24 |
765 |
if (defined(my $glob = $args{'glob'})) |
|
296
|
765 |
0 |
if (my $undef = $args{'undefined'}) |
|
309
|
697 |
25891 |
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
|
2658 |
23233 |
if ($event->{'style'} ne 1) |
|
334
|
23303 |
620 |
if (my $equals = $res->{'equals'}) |
|
335
|
426 |
22877 |
if (exists $equals->{$value}) |
|
337
|
82 |
344 |
if (ref $res eq "CODE") |
|
343
|
22864 |
633 |
if (my $regex = $res->{'regex'}) |
|
347
|
9875 |
51829 |
if (@matches) |
|
352
|
13595 |
27 |
if (my $catch_all = $res->{'all'}) |
|
353
|
13595 |
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 |
1548 |
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 |