| line |
true |
false |
branch |
|
378
|
0 |
7 |
ref $_[0] eq 'HASH' ? : |
|
382
|
4 |
3 |
unless %$tags |
|
394
|
0 |
7 |
if ($unimport) { } |
|
395
|
0 |
0 |
if *$tagger_accessor{'CODE'} and ref *$tagger_accessor{'CODE'} ne $tagger_class |
|
399
|
0 |
0 |
if undef *$tagger_accessor |
|
407
|
0 |
0 |
_ref_type($_[0]) eq 'HASH' ? : |
|
|
0 |
54 |
exists $_[0]{$tagger_accessor} ? : |
|
|
54 |
63 |
_ref_type($_[0]) eq 'HASH' ? : |
|
|
0 |
117 |
@_ > 1 ? : |
|
418
|
2 |
5 |
if ($tagged_class eq $tagger_class) { } |
|
420
|
0 |
2 |
if *$tagger_accessor{'CODE'} and ref *$tagger_accessor{'CODE'} ne $tagger_class |
|
426
|
63 |
63 |
unless (@_ == 2 and $_[0] eq $_[1]) |
|
427
|
0 |
63 |
if $tag eq 'AUTOLOAD' |
|
433
|
0 |
126 |
unless @_ > 1 and ref $_[0] || $_[0] eq $tagger_class |
|
437
|
0 |
126 |
if ref $sub_accessor eq 'CODE' |
|
440
|
0 |
126 |
unless ref $_[1] or $_[1] =~ /^\w[\w\:]*$/ |
|
447
|
0 |
126 |
if ($tag eq 'AUTOLOAD') |
|
454
|
9 |
117 |
unless $_[0]->can($tagged_accessor) |
|
455
|
0 |
0 |
unless *{join '::', ref $_[1] || $_[1], $tagged_accessor;}{'CODE'} |
|
|
126 |
0 |
defined $_[0] ? : |
|
|
54 |
0 |
if $_[1] and !ref($_[1]) || blessed($_[1]) or croak("Querying tag of untagable $_[1]") |
|
458
|
117 |
0 |
ref $scalar_value eq $tagger_class ? : |
|
461
|
2 |
0 |
unless *$tagger_accessor{'CODE'} |
|
464
|
0 |
5 |
unless $tagger_class->isa(ref $tagger_class->can($tag)) or $tagger_class->isa(ref $tagger_class->can('AUTOLOAD')) |
|
472
|
1 |
6 |
if ($tag eq 'tagger_class') |
|
485
|
0 |
1 |
if ($unimport) { } |
|
501
|
0 |
0 |
if $sub_wasimport |
|
503
|
0 |
0 |
!$sub_wasimport ? : |
|
521
|
63 |
54 |
unless ref $_[0] |
|
522
|
54 |
0 |
if $_[0] =~ /=(\w+)/ |