Branch Coverage

blib/lib/Hydrogen/ArrayRef.pm

Criterion	Covered	Total	%
branch	71	354	20.0

line	true	false	branch
112	0	2	unless @_ >= 2 and @_ <= 3
118	0	2	unless ref $_[0] eq "ARRAY"
126	0	2	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
128	2	0	if defined $tmp and not ref $tmp
137	1	1	unless $#_ >= 2
149	1	1	@_ - 1 == 1 ? :
165	0	1	unless @_ == 1
186	0	0	unless @_ == 2
192	0	0	unless ref $_[0] eq "ARRAY"
198	0	0	unless ref $_[1] eq "CODE"
223	0	1	unless @_ == 2
229	0	1	unless ref $_[0] eq "ARRAY"
235	0	1	unless ref $_[1] eq "CODE"
260	0	0	unless @_ == 2
266	0	0	unless ref $_[0] eq "ARRAY"
272	0	0	unless ref $_[1] eq "CODE"
281	0	0	wantarray ? :
294	0	1	unless @_ == 1
311	0	1	unless @_ == 1
332	0	0	unless @_ == 2
338	0	0	unless ref $_[0] eq "ARRAY"
345	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
347	0	0	if defined $tmp and not ref $tmp
370	0	1	unless @_ == 1
391	0	1	unless @_ == 2
397	0	1	unless ref $_[0] eq "ARRAY"
403	0	1	unless ref $_[1] eq "CODE"
428	0	1	unless @_ == 2
434	0	1	unless ref $_[0] eq "ARRAY"
440	0	1	unless ref $_[1] eq "CODE"
449	1	2	if $_[1]->($_)
464	0	1	unless @_ == 1
488	0	2	unless @_ >= 1 and @_ <= 2
494	0	2	unless ref $_[0] eq "ARRAY"
501	1	1	unless $#_ >= 1
504	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
506	1	0	if defined $tmp and not ref $tmp
520	2	3	if defined $d
521	1	3	defined $d && $d < 0 ? :
	4	5	ref $_ eq 'ARRAY' ? :
546	0	1	unless @_ == 2
552	0	1	unless ref $_[0] eq "ARRAY"
558	0	1	unless ref $_[1] eq "CODE"
586	0	0	unless @_ == 2
592	0	0	unless ref $_[0] eq "ARRAY"
599	0	0	unless ref $_[1] eq "CODE"
628	0	3	unless @_ == 2
634	0	3	unless ref $_[0] eq "ARRAY"
641	0	3	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
643	3	0	if defined $tmp and not ref $tmp
670	0	0	unless @_ == 2
676	0	0	unless ref $_[0] eq "ARRAY"
682	0	0	unless ref $_[1] eq "CODE"
707	0	0	unless @_ == 2
713	0	0	unless ref $_[0] eq "ARRAY"
720	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
722	0	0	if defined $tmp and not ref $tmp
732	0	0	if $shv_count > @{$$__REF__;}
733	0	0	if $shv_count < 0
752	0	1	unless @_ == 3
758	0	1	unless ref $_[0] eq "ARRAY"
765	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
767	1	0	if defined $tmp and not ref $tmp
793	0	2	unless @_ == 1
817	0	2	unless @_ >= 1 and @_ <= 2
823	0	2	unless ref $_[0] eq "ARRAY"
829	1	1	unless $#_ >= 1
831	0	1	unless do { if (defined $_[1]) { ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR"; } }
834	1	0	if (defined $_[1])
835	0	1	unless ref \$_[1] eq "SCALAR"
846	1	1	@_ - 1 ? :
866	0	0	unless @_ == 2
872	0	0	unless ref $_[0] eq "ARRAY"
878	0	0	unless ref $_[1] eq "CODE"
898	0	0	unless @_ == 1
914	0	0	unless @_ == 1
930	0	0	unless @_ == 1
946	0	0	unless @_ == 1
970	0	1	unless @_ >= 2 and @_ <= 3
976	0	1	unless ref $_[0] eq "ARRAY"
984	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
986	1	0	if defined $tmp and not ref $tmp
995	1	0	unless $#_ >= 2
997	0	0	unless ref $_[2] eq "CODE"
1009	0	1	if ($_[2]) { }
1033	0	0	unless @_ == 2
1039	0	0	unless ref $_[0] eq "ARRAY"
1046	0	0	unless ref $_[1] eq "CODE"
1072	0	0	unless @_ == 2
1078	0	0	unless ref $_[0] eq "ARRAY"
1084	0	0	unless ref $_[1] eq "CODE"
1109	0	0	unless @_ == 2
1115	0	0	unless ref $_[0] eq "ARRAY"
1121	0	0	unless ref $_[1] eq "CODE"
1141	0	0	unless @_ == 1
1162	0	0	unless @_ == 2
1168	0	0	unless ref $_[0] eq "ARRAY"
1174	0	0	unless ref $_[1] eq "CODE"
1194	0	0	unless @_ == 1
1210	0	0	unless @_ == 1
1234	0	0	unless @_ >= 1 and @_ <= 2
1240	0	0	unless ref $_[0] eq "ARRAY"
1247	0	0	unless $#_ >= 1
1250	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1252	0	0	if defined $tmp and not ref $tmp
1265	0	0	if $shv_count > @{$$__REF__;}
1266	0	0	if $shv_count < 0
1267	0	0	if (wantarray and @_ - 1) { }
	0	0	elsif (@_ - 1) { }
1283	0	2	unless @_ == 1
1308	0	0	unless @_ >= 1 and @_ <= 3
1314	0	0	unless ref $_[0] eq "ARRAY"
1320	0	0	unless $#_ >= 1
1323	0	0	unless do { &Scalar::Util::blessed($_[1]) and $_[1]->isa("IO::Handle") unless ref $_[1] and &Scalar::Util::openhandle($_[1]) }
1327	0	0	unless ref $_[1] and &Scalar::Util::openhandle($_[1])
1337	0	0	unless $#_ >= 2
1339	0	0	unless do { if (defined $_[2]) { ref \(my $val = $_[2]) eq "SCALAR" unless ref \$_[2] eq "SCALAR"; } }
1342	0	0	if (defined $_[2])
1343	0	0	unless ref \$_[2] eq "SCALAR"
1354	0	0	@_ - 1 > 1 ? :
1355	0	0	unless $_[1]
1369	0	0	unless @_ == 1
1404	0	0	unless @_ == 2
1410	0	0	unless ref $_[0] eq "ARRAY"
1416	0	0	unless ref $_[1] eq "CODE"
1442	0	0	unless @_ == 2
1448	0	0	unless ref $_[0] eq "ARRAY"
1454	0	0	unless ref $_[1] eq "CODE"
1475	0	1	unless @_ == 1
1483	0	1	unless ref $shv_final_unchecked eq "ARRAY"
1505	0	0	unless @_ == 1
1526	0	0	unless @_ == 2
1532	0	0	unless ref $_[0] eq "ARRAY"
1539	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1541	0	0	if defined $tmp and not ref $tmp
1568	0	1	unless @_ == 3
1574	0	1	unless ref $_[0] eq "ARRAY"
1581	0	1	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1583	1	0	if defined $tmp and not ref $tmp
1609	0	0	unless @_ == 1
1626	0	2	unless @_ == 1
1643	0	0	unless @_ == 1
1647	0	0	wantarray ? :
1660	0	0	unless @_ == 1
1687	0	0	unless @_ >= 1 and @_ <= 2
1693	0	0	unless ref $_[0] eq "ARRAY"
1699	0	0	unless $#_ >= 1
1701	0	0	unless ref $_[1] eq "CODE"
1712	0	0	$_[1] ? :
1734	0	0	unless @_ >= 1 and @_ <= 2
1740	0	0	unless ref $_[0] eq "ARRAY"
1747	0	0	unless $#_ >= 1
1749	0	0	unless ref $_[1] eq "CODE"
1762	0	0	$_[1] ? :
1777	0	0	unless @_ >= 2
1781	0	0	if (@_ - 1 >= 1)
1784	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1786	0	0	if defined $tmp and not ref $tmp
1796	0	0	if (@_ - 1 >= 2)
1799	0	0	unless do { my $tmp = $_[2]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1801	0	0	if defined $tmp and not ref $tmp
1824	0	0	unless @_ == 1
1845	0	0	unless @_ == 2
1851	0	0	unless ref $_[0] eq "ARRAY"
1858	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1860	0	0	if defined $tmp and not ref $tmp
1870	0	0	if $shv_count > @{$$__REF__;}
1871	0	0	if $shv_count < 0
1887	0	0	unless @_ == 1
1891	0	0	wantarray ? :
1904	0	0	unless @_ == 1
1923	0	0	unless @_ == 1
1927	0	0	wantarray ? :
1940	0	0	unless @_ == 1
1959	0	0	unless @_ == 1
1963	0	0	wantarray ? :
1976	0	0	unless @_ == 1