Branch Coverage

blib/lib/Hydrogen/Array.pm

Criterion	Covered	Total	%
branch	71	356	19.9

line	true	false	branch
115	0	2	unless @_ >= 2 and @_ <= 3
121	0	2	unless ref $_[0] eq "ARRAY"
129	0	2	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
131	2	0	if defined $tmp and not ref $tmp
140	1	1	unless $#_ >= 2
152	1	1	@_ - 1 == 1 ? :
168	0	1	unless @_ == 1
189	0	0	unless @_ == 2
195	0	0	unless ref $_[0] eq "ARRAY"
201	0	0	unless ref $_[1] eq "CODE"
226	0	1	unless @_ == 2
232	0	1	unless ref $_[0] eq "ARRAY"
238	0	1	unless ref $_[1] eq "CODE"
263	0	0	unless @_ == 2
269	0	0	unless ref $_[0] eq "ARRAY"
275	0	0	unless ref $_[1] eq "CODE"
284	0	0	if (wantarray) { }
297	0	1	unless @_ == 1
314	0	1	unless @_ == 1
335	0	0	unless @_ == 2
341	0	0	unless ref $_[0] eq "ARRAY"
348	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
350	0	0	if defined $tmp and not ref $tmp
373	0	1	unless @_ == 1
394	0	1	unless @_ == 2
400	0	1	unless ref $_[0] eq "ARRAY"
406	0	1	unless ref $_[1] eq "CODE"
431	0	1	unless @_ == 2
437	0	1	unless ref $_[0] eq "ARRAY"
443	0	1	unless ref $_[1] eq "CODE"
452	1	2	if $_[1]->($_)
467	0	1	unless @_ == 1
491	0	2	unless @_ >= 1 and @_ <= 2
497	0	2	unless ref $_[0] eq "ARRAY"
504	1	1	unless $#_ >= 1
507	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
509	1	0	if defined $tmp and not ref $tmp
523	2	3	if defined $d
524	1	3	defined $d && $d < 0 ? :
	4	5	ref $_ eq 'ARRAY' ? :
549	0	1	unless @_ == 2
555	0	1	unless ref $_[0] eq "ARRAY"
561	0	1	unless ref $_[1] eq "CODE"
593	0	0	unless @_ == 2
599	0	0	unless ref $_[0] eq "ARRAY"
606	0	0	unless ref $_[1] eq "CODE"
635	0	3	unless @_ == 2
641	0	3	unless ref $_[0] eq "ARRAY"
648	0	3	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
650	3	0	if defined $tmp and not ref $tmp
677	0	0	unless @_ == 2
683	0	0	unless ref $_[0] eq "ARRAY"
689	0	0	unless ref $_[1] eq "CODE"
714	0	0	unless @_ == 2
720	0	0	unless ref $_[0] eq "ARRAY"
727	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
729	0	0	if defined $tmp and not ref $tmp
739	0	0	if $shv_count > @{$$__REF__;}
740	0	0	if $shv_count < 0
754	0	0	unless @_ == 1
776	0	1	unless @_ == 3
782	0	1	unless ref $_[0] eq "ARRAY"
789	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
791	1	0	if defined $tmp and not ref $tmp
817	0	2	unless @_ == 1
841	0	2	unless @_ >= 1 and @_ <= 2
847	0	2	unless ref $_[0] eq "ARRAY"
853	1	1	unless $#_ >= 1
855	0	1	unless do { if (defined $_[1]) { ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR"; } }
858	1	0	if (defined $_[1])
859	0	1	unless ref \$_[1] eq "SCALAR"
870	1	1	@_ - 1 ? :
890	0	0	unless @_ == 2
896	0	0	unless ref $_[0] eq "ARRAY"
902	0	0	unless ref $_[1] eq "CODE"
922	0	0	unless @_ == 1
938	0	0	unless @_ == 1
954	0	0	unless @_ == 1
970	0	0	unless @_ == 1
994	0	1	unless @_ >= 2 and @_ <= 3
1000	0	1	unless ref $_[0] eq "ARRAY"
1008	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1010	1	0	if defined $tmp and not ref $tmp
1019	1	0	unless $#_ >= 2
1021	0	0	unless ref $_[2] eq "CODE"
1033	0	1	if ($_[2]) { }
1057	0	0	unless @_ == 2
1063	0	0	unless ref $_[0] eq "ARRAY"
1070	0	0	unless ref $_[1] eq "CODE"
1096	0	0	unless @_ == 2
1102	0	0	unless ref $_[0] eq "ARRAY"
1108	0	0	unless ref $_[1] eq "CODE"
1133	0	0	unless @_ == 2
1139	0	0	unless ref $_[0] eq "ARRAY"
1145	0	0	unless ref $_[1] eq "CODE"
1165	0	0	unless @_ == 1
1186	0	0	unless @_ == 2
1192	0	0	unless ref $_[0] eq "ARRAY"
1198	0	0	unless ref $_[1] eq "CODE"
1218	0	0	unless @_ == 1
1234	0	0	unless @_ == 1
1258	0	0	unless @_ >= 1 and @_ <= 2
1264	0	0	unless ref $_[0] eq "ARRAY"
1271	0	0	unless $#_ >= 1
1274	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1276	0	0	if defined $tmp and not ref $tmp
1289	0	0	if $shv_count > @{$$__REF__;}
1290	0	0	if $shv_count < 0
1291	0	0	if (wantarray and @_ - 1) { }
	0	0	elsif (@_ - 1) { }
1307	0	2	unless @_ == 1
1332	0	0	unless @_ >= 1 and @_ <= 3
1338	0	0	unless ref $_[0] eq "ARRAY"
1344	0	0	unless $#_ >= 1
1347	0	0	unless do { builtin::blessed($_[1]) and $_[1]->isa("IO::Handle") unless ref $_[1] and &Scalar::Util::openhandle($_[1]) }
1351	0	0	unless ref $_[1] and &Scalar::Util::openhandle($_[1])
1361	0	0	unless $#_ >= 2
1363	0	0	unless do { if (defined $_[2]) { ref \(my $val = $_[2]) eq "SCALAR" unless ref \$_[2] eq "SCALAR"; } }
1366	0	0	if (defined $_[2])
1367	0	0	unless ref \$_[2] eq "SCALAR"
1378	0	0	@_ - 1 > 1 ? :
1379	0	0	unless $_[1]
1393	0	0	unless @_ == 1
1428	0	0	unless @_ == 2
1434	0	0	unless ref $_[0] eq "ARRAY"
1440	0	0	unless ref $_[1] eq "CODE"
1466	0	0	unless @_ == 2
1472	0	0	unless ref $_[0] eq "ARRAY"
1478	0	0	unless ref $_[1] eq "CODE"
1499	0	1	unless @_ == 1
1507	0	1	unless ref $shv_final_unchecked eq "ARRAY"
1529	0	0	unless @_ == 1
1550	0	0	unless @_ == 2
1556	0	0	unless ref $_[0] eq "ARRAY"
1563	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1565	0	0	if defined $tmp and not ref $tmp
1592	0	1	unless @_ == 3
1598	0	1	unless ref $_[0] eq "ARRAY"
1605	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1607	1	0	if defined $tmp and not ref $tmp
1633	0	0	unless @_ == 1
1650	0	2	unless @_ == 1
1667	0	0	unless @_ == 1
1671	0	0	wantarray ? :
1684	0	0	unless @_ == 1
1711	0	0	unless @_ >= 1 and @_ <= 2
1717	0	0	unless ref $_[0] eq "ARRAY"
1723	0	0	unless $#_ >= 1
1725	0	0	unless ref $_[1] eq "CODE"
1736	0	0	$_[1] ? :
1758	0	0	unless @_ >= 1 and @_ <= 2
1764	0	0	unless ref $_[0] eq "ARRAY"
1771	0	0	unless $#_ >= 1
1773	0	0	unless ref $_[1] eq "CODE"
1786	0	0	$_[1] ? :
1801	0	0	unless @_ >= 2
1804	0	0	if (@_ - 1 >= 1)
1807	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1809	0	0	if defined $tmp and not ref $tmp
1819	0	0	if (@_ - 1 >= 2)
1822	0	0	unless do { my $tmp = $_[2]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1824	0	0	if defined $tmp and not ref $tmp
1847	0	0	unless @_ == 1
1868	0	0	unless @_ == 2
1874	0	0	unless ref $_[0] eq "ARRAY"
1881	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1883	0	0	if defined $tmp and not ref $tmp
1893	0	0	if $shv_count > @{$$__REF__;}
1894	0	0	if $shv_count < 0
1910	0	0	unless @_ == 1
1914	0	0	wantarray ? :
1927	0	0	unless @_ == 1
1946	0	0	unless @_ == 1
1950	0	0	wantarray ? :
1963	0	0	unless @_ == 1
1982	0	0	unless @_ == 1
1986	0	0	wantarray ? :
1999	0	0	unless @_ == 1