Branch Coverage

blib/lib/Hydrogen/Array.pm

Criterion	Covered	Total	%
branch	71	354	20.0

line	true	false	branch
114	0	2	unless @_ >= 2 and @_ <= 3
120	0	2	unless ref $_[0] eq "ARRAY"
128	0	2	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
130	2	0	if defined $tmp and not ref $tmp
139	1	1	unless $#_ >= 2
151	1	1	@_ - 1 == 1 ? :
167	0	1	unless @_ == 1
188	0	0	unless @_ == 2
194	0	0	unless ref $_[0] eq "ARRAY"
200	0	0	unless ref $_[1] eq "CODE"
225	0	1	unless @_ == 2
231	0	1	unless ref $_[0] eq "ARRAY"
237	0	1	unless ref $_[1] eq "CODE"
262	0	0	unless @_ == 2
268	0	0	unless ref $_[0] eq "ARRAY"
274	0	0	unless ref $_[1] eq "CODE"
283	0	0	wantarray ? :
296	0	1	unless @_ == 1
313	0	1	unless @_ == 1
334	0	0	unless @_ == 2
340	0	0	unless ref $_[0] eq "ARRAY"
347	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
349	0	0	if defined $tmp and not ref $tmp
372	0	1	unless @_ == 1
393	0	1	unless @_ == 2
399	0	1	unless ref $_[0] eq "ARRAY"
405	0	1	unless ref $_[1] eq "CODE"
430	0	1	unless @_ == 2
436	0	1	unless ref $_[0] eq "ARRAY"
442	0	1	unless ref $_[1] eq "CODE"
451	1	2	if $_[1]->($_)
466	0	1	unless @_ == 1
490	0	2	unless @_ >= 1 and @_ <= 2
496	0	2	unless ref $_[0] eq "ARRAY"
503	1	1	unless $#_ >= 1
506	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
508	1	0	if defined $tmp and not ref $tmp
522	2	3	if defined $d
523	1	3	defined $d && $d < 0 ? :
	4	5	ref $_ eq 'ARRAY' ? :
548	0	1	unless @_ == 2
554	0	1	unless ref $_[0] eq "ARRAY"
560	0	1	unless ref $_[1] eq "CODE"
588	0	0	unless @_ == 2
594	0	0	unless ref $_[0] eq "ARRAY"
601	0	0	unless ref $_[1] eq "CODE"
630	0	3	unless @_ == 2
636	0	3	unless ref $_[0] eq "ARRAY"
643	0	3	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
645	3	0	if defined $tmp and not ref $tmp
672	0	0	unless @_ == 2
678	0	0	unless ref $_[0] eq "ARRAY"
684	0	0	unless ref $_[1] eq "CODE"
709	0	0	unless @_ == 2
715	0	0	unless ref $_[0] eq "ARRAY"
722	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
724	0	0	if defined $tmp and not ref $tmp
734	0	0	if $shv_count > @{$$__REF__;}
735	0	0	if $shv_count < 0
754	0	1	unless @_ == 3
760	0	1	unless ref $_[0] eq "ARRAY"
767	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
769	1	0	if defined $tmp and not ref $tmp
795	0	2	unless @_ == 1
819	0	2	unless @_ >= 1 and @_ <= 2
825	0	2	unless ref $_[0] eq "ARRAY"
831	1	1	unless $#_ >= 1
833	0	1	unless do { if (defined $_[1]) { ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR"; } }
836	1	0	if (defined $_[1])
837	0	1	unless ref \$_[1] eq "SCALAR"
848	1	1	@_ - 1 ? :
868	0	0	unless @_ == 2
874	0	0	unless ref $_[0] eq "ARRAY"
880	0	0	unless ref $_[1] eq "CODE"
900	0	0	unless @_ == 1
916	0	0	unless @_ == 1
932	0	0	unless @_ == 1
948	0	0	unless @_ == 1
972	0	1	unless @_ >= 2 and @_ <= 3
978	0	1	unless ref $_[0] eq "ARRAY"
986	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
988	1	0	if defined $tmp and not ref $tmp
997	1	0	unless $#_ >= 2
999	0	0	unless ref $_[2] eq "CODE"
1011	0	1	if ($_[2]) { }
1035	0	0	unless @_ == 2
1041	0	0	unless ref $_[0] eq "ARRAY"
1048	0	0	unless ref $_[1] eq "CODE"
1074	0	0	unless @_ == 2
1080	0	0	unless ref $_[0] eq "ARRAY"
1086	0	0	unless ref $_[1] eq "CODE"
1111	0	0	unless @_ == 2
1117	0	0	unless ref $_[0] eq "ARRAY"
1123	0	0	unless ref $_[1] eq "CODE"
1143	0	0	unless @_ == 1
1164	0	0	unless @_ == 2
1170	0	0	unless ref $_[0] eq "ARRAY"
1176	0	0	unless ref $_[1] eq "CODE"
1196	0	0	unless @_ == 1
1212	0	0	unless @_ == 1
1236	0	0	unless @_ >= 1 and @_ <= 2
1242	0	0	unless ref $_[0] eq "ARRAY"
1249	0	0	unless $#_ >= 1
1252	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1254	0	0	if defined $tmp and not ref $tmp
1267	0	0	if $shv_count > @{$$__REF__;}
1268	0	0	if $shv_count < 0
1269	0	0	if (wantarray and @_ - 1) { }
	0	0	elsif (@_ - 1) { }
1285	0	2	unless @_ == 1
1310	0	0	unless @_ >= 1 and @_ <= 3
1316	0	0	unless ref $_[0] eq "ARRAY"
1322	0	0	unless $#_ >= 1
1325	0	0	unless do { &Scalar::Util::blessed($_[1]) and $_[1]->isa("IO::Handle") unless ref $_[1] and &Scalar::Util::openhandle($_[1]) }
1329	0	0	unless ref $_[1] and &Scalar::Util::openhandle($_[1])
1339	0	0	unless $#_ >= 2
1341	0	0	unless do { if (defined $_[2]) { ref \(my $val = $_[2]) eq "SCALAR" unless ref \$_[2] eq "SCALAR"; } }
1344	0	0	if (defined $_[2])
1345	0	0	unless ref \$_[2] eq "SCALAR"
1356	0	0	@_ - 1 > 1 ? :
1357	0	0	unless $_[1]
1371	0	0	unless @_ == 1
1406	0	0	unless @_ == 2
1412	0	0	unless ref $_[0] eq "ARRAY"
1418	0	0	unless ref $_[1] eq "CODE"
1444	0	0	unless @_ == 2
1450	0	0	unless ref $_[0] eq "ARRAY"
1456	0	0	unless ref $_[1] eq "CODE"
1477	0	1	unless @_ == 1
1485	0	1	unless ref $shv_final_unchecked eq "ARRAY"
1507	0	0	unless @_ == 1
1528	0	0	unless @_ == 2
1534	0	0	unless ref $_[0] eq "ARRAY"
1541	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1543	0	0	if defined $tmp and not ref $tmp
1570	0	1	unless @_ == 3
1576	0	1	unless ref $_[0] eq "ARRAY"
1583	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1585	1	0	if defined $tmp and not ref $tmp
1611	0	0	unless @_ == 1
1628	0	2	unless @_ == 1
1645	0	0	unless @_ == 1
1649	0	0	wantarray ? :
1662	0	0	unless @_ == 1
1689	0	0	unless @_ >= 1 and @_ <= 2
1695	0	0	unless ref $_[0] eq "ARRAY"
1701	0	0	unless $#_ >= 1
1703	0	0	unless ref $_[1] eq "CODE"
1714	0	0	$_[1] ? :
1736	0	0	unless @_ >= 1 and @_ <= 2
1742	0	0	unless ref $_[0] eq "ARRAY"
1749	0	0	unless $#_ >= 1
1751	0	0	unless ref $_[1] eq "CODE"
1764	0	0	$_[1] ? :
1779	0	0	unless @_ >= 2
1782	0	0	if (@_ - 1 >= 1)
1785	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1787	0	0	if defined $tmp and not ref $tmp
1797	0	0	if (@_ - 1 >= 2)
1800	0	0	unless do { my $tmp = $_[2]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1802	0	0	if defined $tmp and not ref $tmp
1825	0	0	unless @_ == 1
1846	0	0	unless @_ == 2
1852	0	0	unless ref $_[0] eq "ARRAY"
1859	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1861	0	0	if defined $tmp and not ref $tmp
1871	0	0	if $shv_count > @{$$__REF__;}
1872	0	0	if $shv_count < 0
1888	0	0	unless @_ == 1
1892	0	0	wantarray ? :
1905	0	0	unless @_ == 1
1924	0	0	unless @_ == 1
1928	0	0	wantarray ? :
1941	0	0	unless @_ == 1
1960	0	0	unless @_ == 1
1964	0	0	wantarray ? :
1977	0	0	unless @_ == 1