Branch Coverage

lib/Badger/Class.pm
Criterion Covered Total %
branch 105 170 61.7


line true false branch
117 0 8452 unless @$symbols
131 0 76 unless @$symbols
144 1182 0 unless ref $debug eq "HASH"
168 1 130 @_ ? :
203 12306 594 @_ ? :
207 8600 4300 @_ ? :
273 0 54 @_ ? :
276 1 34 if ($base eq $pkg) { }
277 1 0 if $pkg =~ /(\w+)$/
295 0 0 unless $_[0]{'symbols'}{$_[1]}
296 0 0 unless $_[0]{'symbols'}{$_[1]}
297 0 0 unless $_[0]{'symbols'}{$_[1]}
298 0 0 unless $_[0]{'symbols'}{$_[1]}
299 0 0 unless $_[0]{'symbols'}{$_[1]}
300 0 0 unless scalar_ref(@_)
301 0 0 unless array_ref(@_)
302 0 0 unless hash_ref(@_)
325 105 125 @_ ? :
346 0 596 if &DEBUG()
347 180 416 if defined ${$pkg . "::" . $name;}
355 88 32 @_ == 1 ? :
359 86 34 unless ref $names eq "ARRAY"
367 0 392 if &DEBUG()
368 86 306 if defined ${$pkg . "::" . $name;}
388 0 6723 if &DEBUG()
390 3939 2784 if defined($value = ${$pkg . "::" . $name;})
391 0 6723 if &DEBUG() and $value
394 1953 230 wantarray ? :
408 72 87 unless defined $list
409 66 21 if (ref $list eq 'ARRAY') { }
410 0 66 unless @$list
424 43 112 wantarray ? :
440 96 47 unless defined $hash
441 0 47 unless (ref $hash eq "HASH")
460 0 1956 unless ref $hash eq "HASH"
462 1951 5 if defined $hash->{$item}
489 0 721 wantarray ? :
499 0 720 unless defined($item = pop @pending)
506 2598 0 wantarray ? :
517 2127 0 @_ == 1 ? :
520 2127 0 unless ref $bases eq "ARRAY"
526 251 2061 if $pkg->isa($base)
527 0 2061 if &DEBUG()
536 3 0 @_ == 1 ? :
538 3 0 unless ref $mixins eq "ARRAY"
556 0 0 @_ == 1 ? :
559 0 0 unless ref $syms eq "ARRAY"
565 0 0 if &DEBUG()
575 0 1384 if &DEBUG()
580 1384 0 unless defined ${$pkg . "::" . "VERSION";} and ${$pkg . "::" . "VERSION";}
582 1384 0 unless defined &{$pkg . "::" . "VERSION";}
589 775 22 @_ == 1 ? :
594 0 797 unless ref $constants eq "HASH"
602 0 2449 if &DEBUG()
610 493 0 @_ == 1 ? :
613 493 0 unless ref $words eq "ARRAY"
619 0 1287 if &DEBUG()
641 637 1 @_ && ref $_[0] eq 'HASH' ? :
650 1 637 if ($messages) { }
651 0 1 if &DEBUG()
655 0 637 if &DEBUG()
669 4 21 unless @_
674 0 21 if &DEBUG()
678 17 4 ref $code eq 'CODE' ? :
685 75 638 @_ && ref $_[0] eq 'HASH' ? :
691 0 4967 if &DEBUG()
693 4966 1 ref $code eq 'CODE' ? :
700 91 1 @_ && ref $_[0] eq 'HASH' ? :
705 0 97 if &DEBUG()
706 3 94 unless ref $code eq "CODE"
718 74 442 @_ && ref $_[0] eq 'HASH' ? :
719 0 516 if &DEBUG()
731 219 0 $arg eq 1 ? :
0 219 $arg eq 0 ? :
752 2 1 keys %{$_[0]{'symbols'};} ? :
757 0 98 unless _autoload($self->{'name'})
796 31 0 @_ == 1 ? :
800 26 5 unless ref $args
805 26 5 if ref $args eq "ARRAY"
809 0 31 unless ref $args eq "HASH"
812 0 31 if &DEBUG()
832 649 5742 unless (defined ${$class . "::" . "BADGER_LOADED";} or scalar grep({not /::$/;} keys %$symbols) > 1)
836 0 649 if &DEBUG()
839 22 627 if $@
850 0 0 if scalar grep({not /::$/;} keys %$symbols) == 1 and exists $symbols->{'import'}