| line |
true |
false |
branch |
|
19
|
0 |
760 |
unless defined $bool
|
|
20
|
0 |
760 |
if (keys %args)
|
|
28
|
0 |
753 |
if ($b eq '*') { }
|
|
|
595 |
158 |
elsif ($b eq 'JSON::PP') { }
|
|
|
0 |
158 |
elsif ($b eq 'boolean') { }
|
|
|
158 |
0 |
elsif ($b eq 'perl' or $b eq 'perl_experimental') { }
|
|
86
|
1577 |
7 |
@{$_[0]{'bool_class'};} ? :
|
|
103
|
447 |
932 |
if ($item eq "+")
|
|
107
|
10 |
1369 |
if (builtin::blessed($item))
|
|
126
|
1 |
1368 |
if ($item =~ /^\:(.*)/) { }
|
|
128
|
0 |
1 |
unless ($class =~ /\A[A-Za-z0-9_:]+\z/)
|
|
135
|
0 |
1368 |
unless ($class =~ /\A[A-Za-z0-9_:]+\z/)
|
|
155
|
20772 |
768 |
unless defined $implicit
|
|
157
|
21540 |
0 |
if ($tag)
|
|
158
|
681 |
20859 |
if (ref $tag eq 'Regexp') { }
|
|
168
|
20793 |
747 |
if ($implicit)
|
|
172
|
34094 |
8239 |
if ($type eq 'equals') { }
|
|
|
5986 |
2253 |
elsif ($type eq 'regex') { }
|
|
|
2253 |
0 |
elsif ($type eq 'all') { }
|
|
174
|
34094 |
0 |
unless (exists $res->{'equals'}{$match})
|
|
206
|
1394 |
149 |
if ($tag and ref $tag eq 'Regexp') { }
|
|
|
149 |
0 |
elsif ($tag) { }
|
|
225
|
1510 |
19436 |
if (my $flags = $args{'flags'})
|
|
230
|
756 |
18680 |
if (my $regex = $args{'regex'})
|
|
235
|
26 |
18654 |
if (my $regex = $args{'class_matches'})
|
|
240
|
155 |
18499 |
if (my $bool = $args{'bool'} and $] >= "5.036")
|
|
246
|
595 |
17904 |
if (my $class_equals = $args{'class_equals'})
|
|
253
|
2 |
17902 |
if (my $class_isa = $args{'class_isa'})
|
|
258
|
0 |
17902 |
if (my $tied_equals = $args{'tied_equals'})
|
|
265
|
17051 |
851 |
if (defined(my $equals = $args{'equals'}))
|
|
272
|
24 |
827 |
if (defined(my $scalarref = $args{'scalarref'}))
|
|
278
|
24 |
803 |
if (defined(my $refref = $args{'refref'}))
|
|
284
|
24 |
779 |
if (defined(my $coderef = $args{'coderef'}))
|
|
290
|
24 |
755 |
if (defined(my $glob = $args{'glob'}))
|
|
296
|
755 |
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 |
1178 |
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 |
1230 |
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
|