| line |
true |
false |
branch |
|
374
|
0 |
118 |
ref $_[0] eq 'HASH' ? : |
|
376
|
115 |
3 |
unless %$tags |
|
388
|
0 |
119 |
if ($unimport) { } |
|
391
|
0 |
0 |
if *$tagger_accessor{'CODE'} and ref *$tagger_accessor{'CODE'} ne $tagger_class |
|
393
|
0 |
0 |
if undef *$tagger_accessor |
|
407
|
0 |
0 |
_ref_type($_[0]) eq 'HASH' ? : |
|
|
0 |
96 |
exists $_[0]{$tagger_accessor} ? : |
|
|
96 |
207 |
_ref_type($_[0]) eq 'HASH' ? : |
|
|
0 |
303 |
@_ > 1 ? : |
|
412
|
3 |
116 |
if ($tagged_class eq $tagger_class) { } |
|
415
|
0 |
3 |
if *$tagger_accessor{'CODE'} and ref *$tagger_accessor{'CODE'} ne $tagger_class |
|
420
|
205 |
205 |
unless (@_ == 2 and $_[0] eq $_[1]) |
|
421
|
0 |
205 |
if $tag eq 'AUTOLOAD' |
|
427
|
0 |
410 |
unless @_ > 1 and ref $_[0] || $_[0] eq $tagger_class |
|
431
|
0 |
410 |
if ref $sub_accessor eq 'CODE' |
|
434
|
47 |
363 |
unless ref $_[1] or $_[1] =~ /^\w[\w\:]*$/ |
|
441
|
0 |
363 |
if ($tag eq 'AUTOLOAD') |
|
448
|
60 |
303 |
unless $_[0]->can($tagged_accessor) |
|
449
|
0 |
0 |
unless *{join '::', ref $_[1] || $_[1], $tagged_accessor;}{'CODE'} |
|
|
363 |
0 |
defined $_[0] ? : |
|
450
|
303 |
0 |
ref $scalar_value eq $tagger_class ? : |
|
453
|
3 |
0 |
unless *$tagger_accessor{'CODE'} |
|
456
|
0 |
116 |
unless $tagger_class->isa(ref $tagger_class->can($tag)) or $tagger_class->isa(ref $tagger_class->can('AUTOLOAD')) |
|
464
|
1 |
118 |
if ($tag eq 'tagger_class') |
|
477
|
0 |
1 |
if ($unimport) { } |
|
493
|
0 |
0 |
if $sub_wasimport |
|
495
|
0 |
0 |
!$sub_wasimport ? : |
|
513
|
205 |
98 |
unless ref $_[0] |
|
514
|
98 |
0 |
if $_[0] =~ /=(\w+)/ |