| blib/lib/Class/Tag.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 17 | 29 | 58.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 334 | 8 | 0 | 0 | *$tagger_accessor{'CODE'} and ref *$tagger_accessor{'CODE'} ne $tagger_class |
| 356 | 7 | 0 | 0 | *$tagger_accessor{'CODE'} and ref *$tagger_accessor{'CODE'} ne $tagger_class |
| 361 | 26 | 81 | 107 | @_ == 2 and $_[0] eq $_[1] |
| 368 | 10 | 204 | 0 | @_ > 1 and ref $_[0] || $_[0] eq $tagger_class |
| line | l | !l | condition |
|---|---|---|---|
| 401 | 3 | 3 | $INC{join '/', split(/::/, "$new_tagger_class.pm", 0)} ||= 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 310 | 0 | 37 | 0 | ref $self || $self |
| 311 | 0 | 37 | 0 | $Class::Tag::caller || caller |
| 368 | 0 | 202 | 2 | ref $_[0] || $_[0] eq $tagger_class |
| 385 | 0 | 0 | 4 | ref $_[1] || $_[1] |
| 390 | 3 | 30 | 1 | $tagger_class->isa(ref $tagger_class->can($tag)) or $tagger_class->isa(ref $tagger_class->can('AUTOLOAD')) |