Branch Coverage

blib/lib/Hydrogen/Topic/ArrayRef.pm

Criterion	Covered	Total	%
branch	60	296	20.2

line	true	false	branch
114	0	2	unless @_ >= 1 and @_ <= 2
121	0	2	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
123	2	0	if defined $tmp and not ref $tmp
132	1	1	unless $#_ >= 1
144	1	1	0 + @_ == 1 ? :
159	0	1	unless @_ == 0
181	0	0	unless @_ == 1
187	0	0	unless ref $_[0] eq "CODE"
213	0	1	unless @_ == 1
219	0	1	unless ref $_[0] eq "CODE"
245	0	0	unless @_ == 1
251	0	0	unless ref $_[0] eq "CODE"
260	0	0	if (wantarray) { }
274	0	1	unless @_ == 0
292	0	1	unless @_ == 0
314	0	0	unless @_ == 1
321	0	0	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
323	0	0	if defined $tmp and not ref $tmp
347	0	1	unless @_ == 0
369	0	1	unless @_ == 1
375	0	1	unless ref $_[0] eq "CODE"
401	0	1	unless @_ == 1
407	0	1	unless ref $_[0] eq "CODE"
414	1	2	if $_[0]->($_)
429	0	1	unless @_ == 0
454	0	2	unless @_ >= 0
460	1	1	unless $#_ >= 0
463	0	1	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
465	1	0	if defined $tmp and not ref $tmp
479	2	3	if defined $d
480	1	3	defined $d && $d < 0 ? :
	4	5	ref $_ eq 'ARRAY' ? :
506	0	1	unless @_ == 1
512	0	1	unless ref $_[0] eq "CODE"
545	0	0	unless @_ == 1
551	0	0	unless ref $_[0] eq "CODE"
581	0	3	unless @_ == 1
588	0	3	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
590	3	0	if defined $tmp and not ref $tmp
618	0	0	unless @_ == 1
624	0	0	unless ref $_[0] eq "CODE"
650	0	0	unless @_ == 1
657	0	0	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
659	0	0	if defined $tmp and not ref $tmp
669	0	0	if $shv_count > @{$_;}
670	0	0	if $shv_count < 0
685	0	0	unless @_ == 0
708	0	1	unless @_ == 2
715	0	1	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
717	1	0	if defined $tmp and not ref $tmp
744	0	2	unless @_ == 0
769	0	2	unless @_ >= 0
775	1	1	unless $#_ >= 0
777	0	1	unless do { if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
780	1	0	if (defined $_[0])
781	0	1	unless ref \$_[0] eq "SCALAR"
792	1	1	0 + @_ ? :
813	0	0	unless @_ == 1
819	0	0	unless ref $_[0] eq "CODE"
840	0	0	unless @_ == 0
857	0	0	unless @_ == 0
874	0	0	unless @_ == 0
891	0	0	unless @_ == 0
916	0	1	unless @_ >= 1 and @_ <= 2
923	0	1	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
925	1	0	if defined $tmp and not ref $tmp
934	1	0	unless $#_ >= 1
936	0	0	unless ref $_[1] eq "CODE"
948	0	1	if ($_[1]) { }
973	0	0	unless @_ == 1
979	0	0	unless ref $_[0] eq "CODE"
1006	0	0	unless @_ == 1
1012	0	0	unless ref $_[0] eq "CODE"
1038	0	0	unless @_ == 1
1044	0	0	unless ref $_[0] eq "CODE"
1065	0	0	unless @_ == 0
1087	0	0	unless @_ == 1
1093	0	0	unless ref $_[0] eq "CODE"
1114	0	0	unless @_ == 0
1131	0	0	unless @_ == 0
1156	0	0	unless @_ >= 0
1162	0	0	unless $#_ >= 0
1165	0	0	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1167	0	0	if defined $tmp and not ref $tmp
1180	0	0	if $shv_count > @{$_;}
1181	0	0	if $shv_count < 0
1182	0	0	if (wantarray and 0 + @_) { }
	0	0	elsif (0 + @_) { }
1199	0	2	unless @_ == 0
1225	0	0	unless @_ >= 0
1231	0	0	unless $#_ >= 0
1234	0	0	unless do { builtin::blessed($_[0]) and $_[0]->isa("IO::Handle") unless ref $_[0] and &Scalar::Util::openhandle($_[0]) }
1238	0	0	unless ref $_[0] and &Scalar::Util::openhandle($_[0])
1248	0	0	unless $#_ >= 1
1250	0	0	unless do { if (defined $_[1]) { ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR"; } }
1253	0	0	if (defined $_[1])
1254	0	0	unless ref \$_[1] eq "SCALAR"
1265	0	0	0 + @_ > 1 ? :
1266	0	0	unless $_[0]
1281	0	0	unless @_ == 0
1318	0	0	unless @_ == 1
1324	0	0	unless ref $_[0] eq "CODE"
1351	0	0	unless @_ == 1
1357	0	0	unless ref $_[0] eq "CODE"
1379	0	1	unless @_ == 0
1387	0	1	unless ref $shv_final_unchecked eq "ARRAY"
1410	0	0	unless @_ == 0
1432	0	0	unless @_ == 1
1439	0	0	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1441	0	0	if defined $tmp and not ref $tmp
1469	0	1	unless @_ == 2
1476	0	1	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1478	1	0	if defined $tmp and not ref $tmp
1505	0	0	unless @_ == 0
1523	0	2	unless @_ == 0
1541	0	0	unless @_ == 0
1545	0	0	wantarray ? :
1559	0	0	unless @_ == 0
1587	0	0	unless @_ >= 0
1593	0	0	unless $#_ >= 0
1595	0	0	unless ref $_[0] eq "CODE"
1604	0	0	$_[0] ? :
1627	0	0	unless @_ >= 0
1633	0	0	unless $#_ >= 0
1635	0	0	unless ref $_[0] eq "CODE"
1646	0	0	$_[0] ? :
1662	0	0	unless @_ >= 1
1666	0	0	if (0 + @_ >= 1)
1669	0	0	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1671	0	0	if defined $tmp and not ref $tmp
1681	0	0	if (0 + @_ >= 2)
1684	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1686	0	0	if defined $tmp and not ref $tmp
1710	0	0	unless @_ == 0
1732	0	0	unless @_ == 1
1739	0	0	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1741	0	0	if defined $tmp and not ref $tmp
1751	0	0	if $shv_count > @{$_;}
1752	0	0	if $shv_count < 0
1769	0	0	unless @_ == 0
1773	0	0	wantarray ? :
1787	0	0	unless @_ == 0
1807	0	0	unless @_ == 0
1811	0	0	wantarray ? :
1825	0	0	unless @_ == 0
1845	0	0	unless @_ == 0
1849	0	0	wantarray ? :
1863	0	0	unless @_ == 0