Branch Coverage

blib/lib/Struct/Dumb.pm
Criterion Covered Total %
branch 24 44 54.5


line true false branch
140 1 1 if ($_ eq '-named_constructors') { }
148 8 1 unless keys %syms
152 8 1 if (delete $syms{'struct'})
158 1 8 if (delete $syms{'readonly_struct'})
165 0 9 if (keys %syms)
214 1 7 if (my $predicate = $opts{'predicate'})
243 3 5 if ($named) { }
248 1 1 unless exists $values{$_} or $optional->{$_}
252 1 4 if (my($extrakey) = keys %values)
262 1 9 unless @_ == $fieldcount
277 1 7 if @_ > 1
279 0 1 if @_ > 1
280 18 2 $lvalue ? :
293 0 0 if ($named) { }
299 0 0 unless exists $values{$_} or $optional{$_}
310 0 0 unless @_ == $fieldcount
316 0 0 $lvalue ? :
333 0 0 unless eval "$code; 1"
438 0 0 unless $INC{'Data/Dump.pm'}
444 0 0 unless my $meta = $_STRUCT_PACKAGES{$ctx->class}
452 0 0 $meta->{'named'} ? :
474 0 0 unless $GD