Branch Coverage

blib/lib/Hash/Ordered.pm
Criterion Covered Total %
branch 71 78 93.5


line true false branch
28 3 0 if ($] gt '5.010000') { }
34 0 3 if $@
43 0 0 if $@
70 1 28 unless @_ % 2 == 0
76 3283 1 unless exists $data{$k}
97 9 6 if (@_) { }
3 3 elsif ($self->[2]) { }
130 25 2 wantarray ? :
154 1 13 @_ ? :
14 2 wantarray ? :
181 324 213 unless (exists $self->[0]{$key})
183 4 320 if (my $indx = $self->[2])
184 4 0 @$keys ? :
213 466 2 if (exists $self->[0]{$key})
217 12 454 if (not $self->[2] and @$keys > 25)
223 353 113 if ($self->[2]) { }
230 4 349 if (++$self->[4] > @$keys / 2) { }
182 167 elsif (ref $keys->[0]) { }
85 82 elsif (ref $keys->[-1]) { }
255 113 695 if ($keys->[$_] eq $key)
299 112 133 if exists $data->{$k}
301 115 130 if (my $indx = $self->[2])
302 115 0 @$keys ? :
322 2 1026 if ($self->[2]) { }
328 1022 4 defined $key ? :
349 105 121 if exists $data->{$k}
352 86 140 if $self->[2]
370 2 1026 if ($self->[2]) { }
376 1022 4 defined $key ? :
394 4 2 unless (exists $self->[0]{$k})
396 2 2 if $self->[2]
419 1 33 @_ ? :
445 1 1 unless @keys
448 2 26 unless @keys
560 1 1 if (defined $_[2]) { }
582 2 3 if (my $val = $self->get($key))
604 3 2 if (defined(my $val = $self->get($key)))
630 3 41 unless @keys
637 41 0 defined $_[0][5] ? :