| blib/lib/Class/Tag.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 16 | 41 | 39.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 395 | 0 | 0 | 0 | *$tagger_accessor{'CODE'} and ref *$tagger_accessor{'CODE'} ne $tagger_class |
| 420 | 2 | 0 | 0 | *$tagger_accessor{'CODE'} and ref *$tagger_accessor{'CODE'} ne $tagger_class |
| 426 | 0 | 63 | 63 | @_ == 2 and $_[0] eq $_[1] |
| 433 | 0 | 126 | 0 | @_ > 1 and ref $_[0] || $_[0] eq $tagger_class |
| 455 | 0 | 126 | 0 | $_[1] and !ref($_[1]) || blessed($_[1]) |
| line | l | !l | condition |
|---|---|---|---|
| 475 | 1 | 0 | $INC{join '/', split(/::/, "$new_tagger_class.pm", 0)} ||= 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 372 | 0 | 7 | 0 | ref $self || $self |
| 373 | 0 | 7 | 0 | $Class::Tag::caller || caller |
| 433 | 0 | 126 | 0 | ref $_[0] || $_[0] eq $tagger_class |
| 440 | 54 | 72 | 0 | ref $_[1] or $_[1] =~ /^\w[\w\:]*$/ |
| 454 | 0 | 0 | 0 | ref $_[1] || $_[1] |
| 455 | 72 | 54 | 0 | !ref($_[1]) || blessed($_[1]) |
| 126 | 0 | 0 | $_[1] and !ref($_[1]) || blessed($_[1]) or croak("Querying tag of untagable $_[1]") | |
| 464 | 4 | 1 | 0 | $tagger_class->isa(ref $tagger_class->can($tag)) or $tagger_class->isa(ref $tagger_class->can('AUTOLOAD')) |