| blib/lib/Class/Tag.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 13 | 32 | 40.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 391 | 0 | 0 | 0 | *$tagger_accessor{'CODE'} and ref *$tagger_accessor{'CODE'} ne $tagger_class |
| 415 | 3 | 0 | 0 | *$tagger_accessor{'CODE'} and ref *$tagger_accessor{'CODE'} ne $tagger_class |
| 420 | 0 | 205 | 205 | @_ == 2 and $_[0] eq $_[1] |
| 427 | 0 | 410 | 0 | @_ > 1 and ref $_[0] || $_[0] eq $tagger_class |
| line | l | !l | condition |
|---|---|---|---|
| 467 | 1 | 0 | $INC{join '/', split(/::/, "$new_tagger_class.pm", 0)} ||= 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 366 | 0 | 118 | 0 | ref $self || $self |
| 367 | 0 | 118 | 0 | $Class::Tag::caller || caller |
| 427 | 0 | 410 | 0 | ref $_[0] || $_[0] eq $tagger_class |
| 434 | 98 | 265 | 47 | ref $_[1] or $_[1] =~ /^\w[\w\:]*$/ |
| 449 | 0 | 0 | 0 | ref $_[1] || $_[1] |
| 456 | 115 | 1 | 0 | $tagger_class->isa(ref $tagger_class->can($tag)) or $tagger_class->isa(ref $tagger_class->can('AUTOLOAD')) |