Branch Coverage

lib/Badger/Base.pm
Criterion Covered Total %
branch 76 96 79.1


line true false branch
57 102 355 @_ && ref $_[0] eq 'HASH' ? :
63 454 0 defined $self ? :
78 0 8 unless @_
84 8 0 if $handlers and @$handlers
98 58 13 if (@_) { }
11 2 elsif ($type eq 'HASH') { }
100 63 0 defined $_ ? :
0 58 ref $_[0] ? :
107 52 6 if ($type eq "HASH")
113 2 56 if $handlers and @$handlers
131 37 0 @_ == 1 ? :
138 37 0 if ($type eq "HASH")
153 2 0 $type eq 'HASH' ? :
163 27 0 $type eq 'HASH' ? :
174 58 3 if (not @_) { }
181 0 58 if (&blessed($type) and $type->isa($emod)) { }
201 1 2 if (not @_ and &blessed($info) and $info->isa($emod) and $info->type eq $type) { }
206 0 2 @_ && ref $_[0] eq 'HASH' ? :
219 16 278 if (@_) { }
221 1 15 if (wantarray) { }
223 0 1 if $@
228 14 1 if $@
249 4 61 if (@_) { }
51 10 elsif ($type eq 'HASH') { }
254 1 3 $type eq 'HASH' ? :
279 0 61 if (@_) { }
55 6 elsif ($type eq 'HASH') { }
284 0 0 $type eq 'HASH' ? :
304 2 1 if (ref $self and &reftype($self) eq "HASH")
326 1 1860 if ($self and $ref and $ref eq "HASH" and $self->{'messages'})
328 1 0 if &reftype($self->{'messages'}) eq "HASH"
331 1861 1 unless defined $format
379 4 6 @_ ? :
401 61 8 if (ref $self and &reftype($self) eq 'HASH') { }
408 1 60 unless ref $list eq "ARRAY"
415 1 7 unless ref $list eq "ARRAY"
422 3 66 if (@_)
423 0 3 if ($_[0] eq 'before') { }
1 2 elsif ($_[0] eq 'after') { }
456 6 6 if (not ref $handler) { }
6 0 elsif (ref $handler eq 'CODE') { }
457 2 4 if ($handler eq 'warn') { }
0 4 elsif ($handler eq 'none') { }
480 2 8 if not @args or @args == 1 and not $args[0]
503 278 278 if $method eq "DESTROY"
506 1 277 if (wantarray) { }
508 0 1 if $@
513 10 267 if $@