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')) |