| line |
true |
false |
branch |
|
414
|
9 |
28 |
ref $_[0] eq 'HASH' ? : |
|
418
|
6 |
31 |
unless %$tags |
|
430
|
8 |
41 |
if ($unimport) { } |
|
431
|
0 |
8 |
if *$tagger_accessor{'CODE'} and ref *$tagger_accessor{'CODE'} ne $tagger_class |
|
435
|
0 |
8 |
if undef *$tagger_accessor |
|
443
|
8 |
6 |
_ref_type($_[0]) eq 'HASH' ? : |
|
|
12 |
6 |
exists $_[0]{$tagger_accessor} ? : |
|
|
18 |
141 |
_ref_type($_[0]) eq 'HASH' ? : |
|
|
14 |
159 |
@_ > 1 ? : |
|
454
|
7 |
34 |
if ($tagged_class eq $tagger_class) { } |
|
456
|
0 |
7 |
if *$tagger_accessor{'CODE'} and ref *$tagger_accessor{'CODE'} ne $tagger_class |
|
462
|
107 |
107 |
unless (@_ == 2 and $_[0] eq $_[1]) |
|
463
|
97 |
10 |
if $tag eq 'AUTOLOAD' |
|
469
|
12 |
202 |
unless @_ > 1 and ref $_[0] || $_[0] eq $tagger_class |
|
473
|
12 |
202 |
if ref $sub_accessor eq 'CODE' |
|
476
|
0 |
202 |
unless ref $_[1] or $_[1] =~ /^\w[\w\:]*$/ |
|
483
|
188 |
14 |
if ($tag eq 'AUTOLOAD') |
|
490
|
27 |
171 |
unless $_[0]->can($tagged_accessor) |
|
491
|
2 |
2 |
unless *{join '::', ref $_[1] || $_[1], $tagged_accessor;}{'CODE'} |
|
|
198 |
4 |
defined $_[0] ? : |
|
|
33 |
0 |
if $_[1] and !ref($_[1]) || blessed($_[1]) or croak("Querying tag of untagable $_[1]") |
|
494
|
173 |
0 |
ref $scalar_value eq $tagger_class ? : |
|
497
|
7 |
0 |
unless *$tagger_accessor{'CODE'} |
|
500
|
1 |
33 |
unless $tagger_class->isa(ref $tagger_class->can($tag)) or $tagger_class->isa(ref $tagger_class->can('AUTOLOAD')) |
|
508
|
6 |
42 |
if ($tag eq 'tagger_class') |
|
521
|
0 |
6 |
if ($unimport) { } |
|
537
|
0 |
0 |
if $sub_wasimport |
|
539
|
0 |
0 |
!$sub_wasimport ? : |
|
557
|
147 |
26 |
unless ref $_[0] |
|
558
|
26 |
0 |
if $_[0] =~ /=(\w+)/ |