Branch Coverage

blib/lib/JE/Object/Array.pm
Criterion Covered Total %
branch 64 132 48.4


line true false branch
85 154 5302 if (ref $_[0] eq 'ARRAY') { }
9 5293 elsif (@_ == 1 and UNIVERSAL::isa($_[0], 'JE::Number')) { }
89 4 5 unless $num == int($num) % 4294967296
116 1580 46302 if ($name eq 'length') { }
45212 2180 elsif ($name =~ /^(?:0|[1-9]\d*)\z/ and $name < 4294967295) { }
117 51 1529 if (@_ > 1) { }
118 0 51 unless $val == int($val) % 4294967296
133 54 45158 if (@_ > 1) { }
138 45033 125 exists $$guts{'array'}[$name] ? :
150 1 5 if $name eq 'length'
151 2 3 if ($name =~ /^(?:0|[1-9]\d*)\z/ and $name < 4294967295)
173 1 52 if $name eq 'length'
174 49 3 if ($name =~ /^(?:0|[1-9]\d*)\z/ and $name < 4294967295)
176 48 1 if $name < @$array
201 2 11 if ($name eq 'length') { }
6 10 elsif ($name =~ /^(?:0|[1-9]\d*)\z/ and $name < 4294967295) { }
407 0 156 unless eval { do { $self->class } } eq 'Array'
417 222 54 defined $_ && !(ref($_) =~ /^JE::(?:Undefined|Null)\z/) ? :
424 0 0 unless eval { do { $self->class } } eq 'Array'
434 0 0 defined $_ && defined $_->value ? :
445 0 0 if (eval { do { $thing->class } } eq 'Array') { }
460 0 6 if not defined $sep or $sep->id eq 'undef'
463 6 0 if (defined $length) { }
465 0 6 unless $length == $length
475 27 0 defined $val && defined $val->value ? :
485 34 0 if (defined $length) { }
487 0 34 unless $length == $length
491 1 33 unless $length
507 13 0 if (defined $length) { }
509 0 13 unless $length == $length
523 0 0 if (defined $length) { }
525 0 0 unless $length == $length
534 0 0 defined $elem2 ? :
538 0 0 defined $elem1 ? :
550 1 0 if (defined $length) { }
552 0 1 unless $length == $length
555 0 1 unless $length
564 1 2 defined $val ? :
578 0 0 if (defined $length) { }
580 0 0 unless $length == $length
586 0 0 if (defined $start) { }
588 0 0 $start < 0 ? :
0 0 $start == $start ? :
598 0 0 if (defined $end and $end->id ne 'undef') { }
600 0 0 $end < 0 ? :
0 0 $end == $end ? :
624 0 0 if (defined $length) { }
626 0 0 unless $length == $length
631 0 0 $val->id eq 'undef' ? :
0 0 defined($val = $self->prop($_)) ? :
640 0 0 defined $comp && $comp->can('call') ? :
661 1 0 if (defined $length) { }
663 0 1 unless $length == $length
666 1 0 if (defined $start) { }
668 0 1 $start < 0 ? :
1 0 $start == $start ? :
678 1 0 if (defined $del_count) { }
680 1 0 $del_count >= 0 ? :
692 0 1 if (@_ < $del_count) { }
1 0 elsif (@_ > $del_count) { }
695 0 0 defined($val = $self->prop($_)) ? :
706 0 0 defined($val = $self->prop($_)) ? :
732 1 0 if (defined $length) { }
734 0 1 unless $length == $length
739 1 2 defined($val = $self->prop($_)) ? :
758 8 3 unless $$guts{'array_tie'}