Condition Coverage

blib/lib/Class/Tag.pm
Criterion Covered Total %
condition 23 41 56.1


and 3 conditions

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

or 2 conditions

line l !l condition
511 3 3 $INC{join '/', split(/::/, "$new_tagger_class.pm", 0)} ||= 1

or 3 conditions

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