Branch Coverage

blib/lib/Convert/Context.pm

Criterion	Covered	Total	%
branch	172	224	76.7

line	true	false	branch
33	244	0	@_ ? :
34	0	207	@_ ? :
42	1472	6806	if @_
54	56	81	if (not ref $Ct2) { }
	0	81	elsif (ref($Ct2) =~ /^SCALAR$/) { }
63	6	75	unless ($o)
73	0	75	if $S->textmode
78	19	56	if (not &$acmp($S->_attrib->[$#{$S->_attrib;}], $Ct2->_attrib->[0])) { }
80	0	0	$flag ? :
85	57	1	$flag ? :
105	0	102	if $S->textmode
107	19	83	if (not $#_ or $#_ == 1 and ref $_[1])
109	19	0	@_ ? :
110	6	13	if $o < 0
111	1	18	if $o < 0
114	1	17	if @_
118	83	0	@_ ? :
119	0	83	if $o1 < 0
120	0	83	if $o1 < 0
121	83	0	@_ ? :
122	66	17	unless (@_)
132	17	0	@_ ? :
133	1	16	if (not $ref) { }
	12	4	elsif ($ref =~ /^ARRAY$/) { }
135	1	0	@_ ? :
143	0	4	if $#_ == 2
153	649	3	if not $cs or $cs_orig == $cs
208	0	84	unless $Ct2
209	4	80	if $S eq $Ct2
210	0	80	unless ref $Ct2
211	0	80	if ref $S ne ref $Ct2
212	3	77	if $S->_charsize != $Ct2->_charsize
213	2	75	if ${$S->_text;} ne ${$Ct2->_text;}
226	53	1166	if $cs == 1
227	13	1153	if $i == -1
228	313	840	unless ($i % $cs)
241	0	6	unless @_
245	5	1	if (not ref $S) { }
250	0	6	unless @_
275	104	140	if (@_ and not ref $_[0]) { }
281	5	239	if (@_ and ref($_[0]) =~ /^ARRAY/) { }
289	0	244	if $#{$S->_offset;} != $#{$S->_attrib;}
296	0	24	unless defined $pattern
297	0	24	unless defined $replace
298	2	22	unless defined $option
309	3	21	if ($array = ref($pattern) =~ /^ARRAY/) { }
	4	17	elsif (ref $pattern) { }
311	2	11	if (ref $$pattern[$_]) { }
377	0	0	if ($mode) { }
380	0	0	if defined $$_[1]
387	0	0	if ($S->charsize != 1)
406	0	3	ref $pattern ? :
407	0	3	if $Ct
428	0	3	if ($limit) { }
433	3	1	if $L[$#L]->length
452	0	115	unless defined $o1
453	2	113	if $o1 < 0
454	1	114	if $o1 < 0
457	4	110	unless defined $l1
462	41	73	unless ($Ct2)
476	56	17	unless (ref $Ct2)
478	56	0	unless defined $o2
479	0	56	if $o2 < 0
480	56	0	unless defined $l2
483	43	13	if ($l1 * $cs == $l2)
514	16	14	unless defined $o2
515	0	30	if $o2 < 0
516	16	14	unless defined $l2
518	30	0	unless ($S->textmode)
534	130	135	unless defined $pos
539	53	312	if $cs == 1
540	4	308	if $i == -1
541	208	100	unless ($i % $cs)
561	0	3	unless defined $search
562	0	3	unless defined $replace
563	3	0	unless defined $mode
565	1	2	if (ref $search) { }
	1	1	elsif ($cs == 1) { }
582	0	0	if $str
604	75	10	unless (defined $o2R)
609	10	75	unless $S->_cmp_slist($S->_attrib, $a2R)
610	1	74	unless $S->_cmp_nlist($S->_offset, $o2R)
618	0	75	unless @$aR == @$bR
619	1	214	if $$aR[$_] != $$bR[$_]
627	1	84	unless @$aR == @$bR
628	9	215	if &$acmp($$aR[$_], $$bR[$_])
640	197	47	if (not $mode) { }
641	187	10	$textR ? :
642	134	63	$attribR ? :
643	82	115	$offsetR ? :
645	47	0	$textR ? :
646	47	0	$attribR ? :
647	47	0	$offsetR ? :
656	51	266	unless $pos
657	1	265	if $pos < 0
658	216	49	unless defined $oR
661	102	163	if $pos >= $$oR[$og]
666	219	243	if ($$oR[$ug + $step] <= $pos) { }
685	0	47	unless defined $oR2
688	0	47	if $o1 < 0
689	0	47	if $o1 < 0
690	0	47	if $o1 + $l1 > $len1
691	1	46	if $o1 and $o1 == $len1
693	8	38	unless defined $al2
694	16	30	unless defined $tl2
695	8	38	unless defined $o2
696	0	46	if $o2 < 0
698	33	13	$o1 ? :
700	42	4	$o2 + $al2 - 1 ? :
719	33	13	if ($o1)
724	31	15	if (not $o1 or &$acmp($a1_right, $a2_left))
729	25	21	if ($o1 + $l1 < $len1 and &$acmp($a2_right, $a3_left))