Branch Coverage

blib/lib/Hydrogen/ArrayRef.pm

Criterion	Covered	Total	%
branch	71	356	19.9

line	true	false	branch
113	0	2	unless @_ >= 2 and @_ <= 3
119	0	2	unless ref $_[0] eq "ARRAY"
127	0	2	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
129	2	0	if defined $tmp and not ref $tmp
138	1	1	unless $#_ >= 2
150	1	1	@_ - 1 == 1 ? :
166	0	1	unless @_ == 1
187	0	0	unless @_ == 2
193	0	0	unless ref $_[0] eq "ARRAY"
199	0	0	unless ref $_[1] eq "CODE"
224	0	1	unless @_ == 2
230	0	1	unless ref $_[0] eq "ARRAY"
236	0	1	unless ref $_[1] eq "CODE"
261	0	0	unless @_ == 2
267	0	0	unless ref $_[0] eq "ARRAY"
273	0	0	unless ref $_[1] eq "CODE"
282	0	0	if (wantarray) { }
295	0	1	unless @_ == 1
312	0	1	unless @_ == 1
333	0	0	unless @_ == 2
339	0	0	unless ref $_[0] eq "ARRAY"
346	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
348	0	0	if defined $tmp and not ref $tmp
371	0	1	unless @_ == 1
392	0	1	unless @_ == 2
398	0	1	unless ref $_[0] eq "ARRAY"
404	0	1	unless ref $_[1] eq "CODE"
429	0	1	unless @_ == 2
435	0	1	unless ref $_[0] eq "ARRAY"
441	0	1	unless ref $_[1] eq "CODE"
450	1	2	if $_[1]->($_)
465	0	1	unless @_ == 1
489	0	2	unless @_ >= 1 and @_ <= 2
495	0	2	unless ref $_[0] eq "ARRAY"
502	1	1	unless $#_ >= 1
505	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
507	1	0	if defined $tmp and not ref $tmp
521	2	3	if defined $d
522	1	3	defined $d && $d < 0 ? :
	4	5	ref $_ eq 'ARRAY' ? :
547	0	1	unless @_ == 2
553	0	1	unless ref $_[0] eq "ARRAY"
559	0	1	unless ref $_[1] eq "CODE"
591	0	0	unless @_ == 2
597	0	0	unless ref $_[0] eq "ARRAY"
604	0	0	unless ref $_[1] eq "CODE"
633	0	3	unless @_ == 2
639	0	3	unless ref $_[0] eq "ARRAY"
646	0	3	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
648	3	0	if defined $tmp and not ref $tmp
675	0	0	unless @_ == 2
681	0	0	unless ref $_[0] eq "ARRAY"
687	0	0	unless ref $_[1] eq "CODE"
712	0	0	unless @_ == 2
718	0	0	unless ref $_[0] eq "ARRAY"
725	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
727	0	0	if defined $tmp and not ref $tmp
737	0	0	if $shv_count > @{$$__REF__;}
738	0	0	if $shv_count < 0
752	0	0	unless @_ == 1
774	0	1	unless @_ == 3
780	0	1	unless ref $_[0] eq "ARRAY"
787	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
789	1	0	if defined $tmp and not ref $tmp
815	0	2	unless @_ == 1
839	0	2	unless @_ >= 1 and @_ <= 2
845	0	2	unless ref $_[0] eq "ARRAY"
851	1	1	unless $#_ >= 1
853	0	1	unless do { if (defined $_[1]) { ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR"; } }
856	1	0	if (defined $_[1])
857	0	1	unless ref \$_[1] eq "SCALAR"
868	1	1	@_ - 1 ? :
888	0	0	unless @_ == 2
894	0	0	unless ref $_[0] eq "ARRAY"
900	0	0	unless ref $_[1] eq "CODE"
920	0	0	unless @_ == 1
936	0	0	unless @_ == 1
952	0	0	unless @_ == 1
968	0	0	unless @_ == 1
992	0	1	unless @_ >= 2 and @_ <= 3
998	0	1	unless ref $_[0] eq "ARRAY"
1006	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1008	1	0	if defined $tmp and not ref $tmp
1017	1	0	unless $#_ >= 2
1019	0	0	unless ref $_[2] eq "CODE"
1031	0	1	if ($_[2]) { }
1055	0	0	unless @_ == 2
1061	0	0	unless ref $_[0] eq "ARRAY"
1068	0	0	unless ref $_[1] eq "CODE"
1094	0	0	unless @_ == 2
1100	0	0	unless ref $_[0] eq "ARRAY"
1106	0	0	unless ref $_[1] eq "CODE"
1131	0	0	unless @_ == 2
1137	0	0	unless ref $_[0] eq "ARRAY"
1143	0	0	unless ref $_[1] eq "CODE"
1163	0	0	unless @_ == 1
1184	0	0	unless @_ == 2
1190	0	0	unless ref $_[0] eq "ARRAY"
1196	0	0	unless ref $_[1] eq "CODE"
1216	0	0	unless @_ == 1
1232	0	0	unless @_ == 1
1256	0	0	unless @_ >= 1 and @_ <= 2
1262	0	0	unless ref $_[0] eq "ARRAY"
1269	0	0	unless $#_ >= 1
1272	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1274	0	0	if defined $tmp and not ref $tmp
1287	0	0	if $shv_count > @{$$__REF__;}
1288	0	0	if $shv_count < 0
1289	0	0	if (wantarray and @_ - 1) { }
	0	0	elsif (@_ - 1) { }
1305	0	2	unless @_ == 1
1330	0	0	unless @_ >= 1 and @_ <= 3
1336	0	0	unless ref $_[0] eq "ARRAY"
1342	0	0	unless $#_ >= 1
1345	0	0	unless do { builtin::blessed($_[1]) and $_[1]->isa("IO::Handle") unless ref $_[1] and &Scalar::Util::openhandle($_[1]) }
1349	0	0	unless ref $_[1] and &Scalar::Util::openhandle($_[1])
1359	0	0	unless $#_ >= 2
1361	0	0	unless do { if (defined $_[2]) { ref \(my $val = $_[2]) eq "SCALAR" unless ref \$_[2] eq "SCALAR"; } }
1364	0	0	if (defined $_[2])
1365	0	0	unless ref \$_[2] eq "SCALAR"
1376	0	0	@_ - 1 > 1 ? :
1377	0	0	unless $_[1]
1391	0	0	unless @_ == 1
1426	0	0	unless @_ == 2
1432	0	0	unless ref $_[0] eq "ARRAY"
1438	0	0	unless ref $_[1] eq "CODE"
1464	0	0	unless @_ == 2
1470	0	0	unless ref $_[0] eq "ARRAY"
1476	0	0	unless ref $_[1] eq "CODE"
1497	0	1	unless @_ == 1
1505	0	1	unless ref $shv_final_unchecked eq "ARRAY"
1527	0	0	unless @_ == 1
1548	0	0	unless @_ == 2
1554	0	0	unless ref $_[0] eq "ARRAY"
1561	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1563	0	0	if defined $tmp and not ref $tmp
1590	0	1	unless @_ == 3
1596	0	1	unless ref $_[0] eq "ARRAY"
1603	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1605	1	0	if defined $tmp and not ref $tmp
1631	0	0	unless @_ == 1
1648	0	2	unless @_ == 1
1665	0	0	unless @_ == 1
1669	0	0	wantarray ? :
1682	0	0	unless @_ == 1
1709	0	0	unless @_ >= 1 and @_ <= 2
1715	0	0	unless ref $_[0] eq "ARRAY"
1721	0	0	unless $#_ >= 1
1723	0	0	unless ref $_[1] eq "CODE"
1734	0	0	$_[1] ? :
1756	0	0	unless @_ >= 1 and @_ <= 2
1762	0	0	unless ref $_[0] eq "ARRAY"
1769	0	0	unless $#_ >= 1
1771	0	0	unless ref $_[1] eq "CODE"
1784	0	0	$_[1] ? :
1799	0	0	unless @_ >= 2
1803	0	0	if (@_ - 1 >= 1)
1806	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1808	0	0	if defined $tmp and not ref $tmp
1818	0	0	if (@_ - 1 >= 2)
1821	0	0	unless do { my $tmp = $_[2]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1823	0	0	if defined $tmp and not ref $tmp
1846	0	0	unless @_ == 1
1867	0	0	unless @_ == 2
1873	0	0	unless ref $_[0] eq "ARRAY"
1880	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1882	0	0	if defined $tmp and not ref $tmp
1892	0	0	if $shv_count > @{$$__REF__;}
1893	0	0	if $shv_count < 0
1909	0	0	unless @_ == 1
1913	0	0	wantarray ? :
1926	0	0	unless @_ == 1
1945	0	0	unless @_ == 1
1949	0	0	wantarray ? :
1962	0	0	unless @_ == 1
1981	0	0	unless @_ == 1
1985	0	0	wantarray ? :
1998	0	0	unless @_ == 1