Branch Coverage

blib/lib/Hydrogen/Topic/ArrayRef.pm

Criterion	Covered	Total	%
branch	60	294	20.4

line	true	false	branch
113	0	2	unless @_ >= 1 and @_ <= 2
120	0	2	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
122	2	0	if defined $tmp and not ref $tmp
131	1	1	unless $#_ >= 1
143	1	1	0 + @_ == 1 ? :
158	0	1	unless @_ == 0
180	0	0	unless @_ == 1
186	0	0	unless ref $_[0] eq "CODE"
212	0	1	unless @_ == 1
218	0	1	unless ref $_[0] eq "CODE"
244	0	0	unless @_ == 1
250	0	0	unless ref $_[0] eq "CODE"
259	0	0	wantarray ? :
273	0	1	unless @_ == 0
291	0	1	unless @_ == 0
313	0	0	unless @_ == 1
320	0	0	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
322	0	0	if defined $tmp and not ref $tmp
346	0	1	unless @_ == 0
368	0	1	unless @_ == 1
374	0	1	unless ref $_[0] eq "CODE"
400	0	1	unless @_ == 1
406	0	1	unless ref $_[0] eq "CODE"
413	1	2	if $_[0]->($_)
428	0	1	unless @_ == 0
453	0	2	unless @_ >= 0
459	1	1	unless $#_ >= 0
462	0	1	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
464	1	0	if defined $tmp and not ref $tmp
478	2	3	if defined $d
479	1	3	defined $d && $d < 0 ? :
	4	5	ref $_ eq 'ARRAY' ? :
505	0	1	unless @_ == 1
511	0	1	unless ref $_[0] eq "CODE"
540	0	0	unless @_ == 1
546	0	0	unless ref $_[0] eq "CODE"
576	0	3	unless @_ == 1
583	0	3	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
585	3	0	if defined $tmp and not ref $tmp
613	0	0	unless @_ == 1
619	0	0	unless ref $_[0] eq "CODE"
645	0	0	unless @_ == 1
652	0	0	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
654	0	0	if defined $tmp and not ref $tmp
664	0	0	if $shv_count > @{$_;}
665	0	0	if $shv_count < 0
685	0	1	unless @_ == 2
692	0	1	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
694	1	0	if defined $tmp and not ref $tmp
721	0	2	unless @_ == 0
746	0	2	unless @_ >= 0
752	1	1	unless $#_ >= 0
754	0	1	unless do { if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
757	1	0	if (defined $_[0])
758	0	1	unless ref \$_[0] eq "SCALAR"
769	1	1	0 + @_ ? :
790	0	0	unless @_ == 1
796	0	0	unless ref $_[0] eq "CODE"
817	0	0	unless @_ == 0
834	0	0	unless @_ == 0
851	0	0	unless @_ == 0
868	0	0	unless @_ == 0
893	0	1	unless @_ >= 1 and @_ <= 2
900	0	1	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
902	1	0	if defined $tmp and not ref $tmp
911	1	0	unless $#_ >= 1
913	0	0	unless ref $_[1] eq "CODE"
925	0	1	if ($_[1]) { }
950	0	0	unless @_ == 1
956	0	0	unless ref $_[0] eq "CODE"
983	0	0	unless @_ == 1
989	0	0	unless ref $_[0] eq "CODE"
1015	0	0	unless @_ == 1
1021	0	0	unless ref $_[0] eq "CODE"
1042	0	0	unless @_ == 0
1064	0	0	unless @_ == 1
1070	0	0	unless ref $_[0] eq "CODE"
1091	0	0	unless @_ == 0
1108	0	0	unless @_ == 0
1133	0	0	unless @_ >= 0
1139	0	0	unless $#_ >= 0
1142	0	0	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1144	0	0	if defined $tmp and not ref $tmp
1157	0	0	if $shv_count > @{$_;}
1158	0	0	if $shv_count < 0
1159	0	0	if (wantarray and 0 + @_) { }
	0	0	elsif (0 + @_) { }
1176	0	2	unless @_ == 0
1202	0	0	unless @_ >= 0
1208	0	0	unless $#_ >= 0
1211	0	0	unless do { &Scalar::Util::blessed($_[0]) and $_[0]->isa("IO::Handle") unless ref $_[0] and &Scalar::Util::openhandle($_[0]) }
1215	0	0	unless ref $_[0] and &Scalar::Util::openhandle($_[0])
1225	0	0	unless $#_ >= 1
1227	0	0	unless do { if (defined $_[1]) { ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR"; } }
1230	0	0	if (defined $_[1])
1231	0	0	unless ref \$_[1] eq "SCALAR"
1242	0	0	0 + @_ > 1 ? :
1243	0	0	unless $_[0]
1258	0	0	unless @_ == 0
1295	0	0	unless @_ == 1
1301	0	0	unless ref $_[0] eq "CODE"
1328	0	0	unless @_ == 1
1334	0	0	unless ref $_[0] eq "CODE"
1356	0	1	unless @_ == 0
1364	0	1	unless ref $shv_final_unchecked eq "ARRAY"
1387	0	0	unless @_ == 0
1409	0	0	unless @_ == 1
1416	0	0	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1418	0	0	if defined $tmp and not ref $tmp
1446	0	1	unless @_ == 2
1453	0	1	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1455	1	0	if defined $tmp and not ref $tmp
1482	0	0	unless @_ == 0
1500	0	2	unless @_ == 0
1518	0	0	unless @_ == 0
1522	0	0	wantarray ? :
1536	0	0	unless @_ == 0
1564	0	0	unless @_ >= 0
1570	0	0	unless $#_ >= 0
1572	0	0	unless ref $_[0] eq "CODE"
1581	0	0	$_[0] ? :
1604	0	0	unless @_ >= 0
1610	0	0	unless $#_ >= 0
1612	0	0	unless ref $_[0] eq "CODE"
1623	0	0	$_[0] ? :
1639	0	0	unless @_ >= 1
1643	0	0	if (0 + @_ >= 1)
1646	0	0	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1648	0	0	if defined $tmp and not ref $tmp
1658	0	0	if (0 + @_ >= 2)
1661	0	0	unless do { my $tmp = $_[1]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1663	0	0	if defined $tmp and not ref $tmp
1687	0	0	unless @_ == 0
1709	0	0	unless @_ == 1
1716	0	0	unless do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp }
1718	0	0	if defined $tmp and not ref $tmp
1728	0	0	if $shv_count > @{$_;}
1729	0	0	if $shv_count < 0
1746	0	0	unless @_ == 0
1750	0	0	wantarray ? :
1764	0	0	unless @_ == 0
1784	0	0	unless @_ == 0
1788	0	0	wantarray ? :
1802	0	0	unless @_ == 0
1822	0	0	unless @_ == 0
1826	0	0	wantarray ? :
1840	0	0	unless @_ == 0