Branch Coverage

blib/lib/Text/DelimMatch.pm

Criterion	Covered	Total	%
branch	134	212	63.2

line	true	false	branch
24	4	0	if defined $start
25	4	0	if not $@ and defined $end
45	0	4	if $esc
46	0	4	if $dblesc
47	0	4	if @_
60	3	0	if defined $start
61	3	0	if not $@ and defined $end
67	0	3	if ($$self{'DEBUG'})
69	0	0	if $$self{'ERROR'}
84	2	3	if (not defined $key) { }
90	3	0	if defined $key
91	3	0	if not $@ and defined $val
92	0	3	if $@
94	0	3	if ($$self{'DEBUG'})
96	0	0	if $$self{'ERROR'}
114	2	1	if defined $esc and $esc ne ''
116	2	1	if (defined $esc and $esc ne '')
118	0	2	if $@
123	0	3	if ($$self{'DEBUG'})
125	0	0	if $$self{'ERROR'}
138	1	0	if defined $esc and $esc ne ''
140	1	0	if (defined $esc and $esc ne '')
142	0	1	if $@
147	0	1	if ($$self{'DEBUG'})
149	0	0	if $$self{'ERROR'}
163	0	1	if $$self{'DEBUG'}
176	0	4	if $$self{'DEBUG'}
189	0	1	if $$self{'DEBUG'}
202	0	2	if $$self{'DEBUG'}
215	0	0	if $$self{'DEBUG'}
226	0	0	if defined $seterr
232	0	0	unless $$self{'KEEP'}
238	0	0	unless $$self{'KEEP'}
244	0	0	unless $$self{'KEEP'}
254	0	0	if $$self{'ERROR'}
294	0	46	if $$self{'ERROR'}
296	44	2	if (defined $string) { }
300	1	1	if $$self{'MATCH'}
307	17	12	unless (%quote or $escape or $dblesc or $$self{'FORCESLOW'})
308	0	17	if $debug
309	5	12	if $start eq $end
315	15	14	if (%quote)
320	13	16	if ($escape or $dblesc)
321	10	3	if ($escape and $dblesc) { }
	2	1	elsif ($escape) { }
333	44	59	if ($state == 0) { }
	47	12	elsif ($state == 1) { }
	12	0	elsif ($state == 2) { }
335	29	15	if $startq
336	20	24	if $escape
339	22	25	if $startq
340	20	27	if $escape
343	6	6	if $specialq
349	0	103	if $debug
353	0	103	if $debug
354	0	103	if $debug
355	0	103	if $debug
356	0	103	if $debug
358	7	96	unless $matched
362	10	86	if ($escape and $self->_match($escape, $matched))
369	34	52	if ($state == 0) { }
	41	11	elsif ($state == 1) { }
	11	0	elsif ($state == 2) { }
370	26	8	if ($self->_match($start, $matched)) { }
373	0	26	if $debug
383	8	0	if ($self->_match($scratch, $matched))
391	31	10	if ($self->_match($end, $matched)) { }
	9	1	elsif ($self->_match($start, $matched)) { }
395	0	31	if $debug
397	22	9	if ($depth == 0) { }
408	0	9	if $debug
417	1	0	if ($self->_match($scratch, $matched))
426	2	3	if ($dblesc and $self->_match($dblesc, $matched) and $matched eq substr($post, 0, 1))
435	9	0	if ($self->_match($endq, $matched)) { }
452	22	7	if ($state == 3) { }
457	0	22	unless $$self{'RETURNDELIM'}
467	2	27	unless ($$self{'KEEP'})
473	29	0	wantarray ? :
482	0	5	if ($$self{'CASESENSE'}) { }
490	3	2	if ($match) { }
491	0	3	unless $$self{'RETURNDELIM'}
493	3	0	if ($$self{'KEEP'})
499	3	0	wantarray ? :
501	2	0	wantarray ? :
516	10	2	if (defined $match)
526	17	9	if ($self->_match($end, $match)) { }
533	8	18	if $count == 0
538	8	2	if ($count == 0)
539	2	6	unless $$self{'RETURNDELIM'}
541	8	0	if ($$self{'KEEP'})
547	5	3	wantarray ? :
551	4	0	wantarray ? :
562	0	2	if $$self{'ERROR'}
564	0	2	unless defined $string
566	2	0	if ($string =~ /^$start/s) { }
568	2	0	if ($rest =~ /^(.*)$end$/s) { }
587	19	301	if ($$self{'CASESENSE'}) { }
595	248	72	if ($match) { }
596	132	116	wantarray ? :
598	11	61	wantarray ? :
607	0	1	if (defined $three) { }
608	0	0	wantarray ? :
610	0	1	wantarray ? :
619	0	1	if (defined $three) { }
620	0	0	wantarray ? :
622	0	1	wantarray ? :