| blib/lib/Class/Tag.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 23 | 41 | 56.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 431 | 8 | 0 | 0 | *$tagger_accessor{'CODE'} and ref *$tagger_accessor{'CODE'} ne $tagger_class |
| 456 | 7 | 0 | 0 | *$tagger_accessor{'CODE'} and ref *$tagger_accessor{'CODE'} ne $tagger_class |
| 462 | 26 | 81 | 107 | @_ == 2 and $_[0] eq $_[1] |
| 469 | 10 | 204 | 0 | @_ > 1 and ref $_[0] || $_[0] eq $tagger_class |
| 491 | 0 | 202 | 0 | $_[1] and !ref($_[1]) || blessed($_[1]) |
| line | l | !l | condition |
|---|---|---|---|
| 511 | 3 | 3 | $INC{join '/', split(/::/, "$new_tagger_class.pm", 0)} ||= 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 408 | 0 | 37 | 0 | ref $self || $self |
| 409 | 0 | 37 | 0 | $Class::Tag::caller || caller |
| 469 | 0 | 202 | 2 | ref $_[0] || $_[0] eq $tagger_class |
| 476 | 33 | 169 | 0 | ref $_[1] or $_[1] =~ /^\w[\w\:]*$/ |
| 490 | 0 | 0 | 4 | ref $_[1] || $_[1] |
| 491 | 169 | 33 | 0 | !ref($_[1]) || blessed($_[1]) |
| 202 | 0 | 0 | $_[1] and !ref($_[1]) || blessed($_[1]) or croak("Querying tag of untagable $_[1]") | |
| 500 | 3 | 30 | 1 | $tagger_class->isa(ref $tagger_class->can($tag)) or $tagger_class->isa(ref $tagger_class->can('AUTOLOAD')) |