Branch Coverage

blib/lib/Regexp/Parser/Objects.pm

Criterion	Covered	Total	%
branch	105	228	46.0

line	true	false	branch
34	180	11	exists $self->{'vis'} ? :
39	215	0	exists $self->{'raw'} ? :
49	0	11	unless ($self->{'down'})
63	20	1093	if @_
71	0	864	if $self->omit
94	0	36	if $class =~ /::anchor$/
145	0	0	if @_
153	0	2	$self->{'neg'} ? :
158	4	10	$self->{'neg'} ? :
180	0	0	if @_
186	0	0	$self->{'neg'} ? :
193	4	8	$self->{'neg'} ? :
215	0	0	if @_
221	0	0	$self->{'neg'} ? :
228	12	18	$self->{'neg'} ? :
263	4	35	$self->{'neg'} ? :
268	0	0	if @_
279	0	0	if (@_)
281	0	0	if ($how eq '=') { }
	0	0	elsif ($how eq '+') { }
294	0	0	if $d
313	65	46	unless defined $vis
365	34	14	if (ref $type) { }
380	2	0	if (ref $self->{'data'}) { }
386	0	0	ref $self->{'how'} eq 'SCALAR' ? :
388	0	0	$self->{'neg'} ? :
394	0	0	if (ref $self->{'data'}) { }
395	0	0	if @_
399	0	0	if @_
406	17	7	if (ref $self->{'data'}) { }
412	7	0	ref $self->{'how'} eq 'SCALAR' ? :
414	2	5	$self->{'neg'} ? :
455	2	3	$neg ? :
471	0	0	if @_
477	2	3	$self->{'neg'} ? :
529	0	0	unless @$tree
531	0	0	unless $tree->[-1] == $self
532	0	0	unless @$tree > 1
534	0	0	unless $prev->type eq $self->type
542	20	0	if ($d)
558	18	47	if (@$st and @{$st->[-1];} and $st->[-1][-1]->type eq 'ifthen') { }
	8	39	elsif (@$st and @{$st->[-1];} and $st->[-1][-1]->family eq $self->family) { }
570	8	0	unless $br->{'zerolen'} &&= $_->{'zerolen'}
583	39	0	unless $tree->[-1]{'zerolen'} &&= $_->{'zerolen'}
598	587	35	unless defined $vis
616	61	519	$self->{'flags'} & $self->{'rx'}->FLAG_i ? :
627	0	622	unless @$tree
629	0	622	unless $tree->[-1] == $self
630	303	319	unless @$tree > 1
632	98	221	unless $prev->type eq $self->type
672	7	16	if ($min == 0 and $max eq '') { }
	6	10	elsif ($min == 1 and $max eq '') { }
680	49	112	if ($min == 0 and $max eq '') { }
	72	40	elsif ($min == 1 and $max eq '') { }
	9	31	elsif ($min == 0 and $max == 1) { }
	6	25	elsif ($max ne '' and $min == $max) { }
699	0	0	if (@_)
701	0	0	if ($how eq '=') { }
	0	0	elsif ($how eq '+') { }
713	11	4	if $d
721	2	96	if @$tree == 0 or $tree->[-1]->family eq "flags"
725	0	96	if $tree->[-1]->family eq "quant"
729	0	96	if ($tree->[-1]->family eq 'exact' and @{$tree->[-1]{'data'};} > 1) { }
741	0	96	if ($tree->[-1]->family eq 'assertion' and $tree->[-1]->type eq 'eval' or $tree->[-1]{'zerolen'} and not $self->{'min'} == 0 && $self->{'max'} == 1) { }
	0	192	elsif ($tree->[-1]{'zerolen'} and $self->{'max'} eq '') { }
792	4	56	if ($self->{'on'} =~ /^\^/)
796	6	50	length $self->{'off'} ? :
811	0	0	if (@_)
813	0	0	if ($how eq '=') { }
	0	0	elsif ($how eq '+') { }
826	1	0	if $d
886	0	0	if (@_)
888	0	0	if ($how eq '=') { }
	0	0	elsif ($how eq '+') { }
901	0	0	if $d
948	0	259	unless $tree = pop @{$$rx{"stack"};}
954	101	128	if $self->family eq "close" and $tree->[-1]->can("nparen")
957	18	211	if ($tree->[-1]{'ifthen'}) { }
962	18	0	if (ref $ifthen->{'data'}[0] eq 'ARRAY') { }
980	0	229	unless $self->omit
1009	0	0	unless $rx->{'tree'} = pop @{$$rx{"stack"};}
1013	0	0	if $self->family eq "close" and $tree->[-1]->can("nparen")
1016	0	0	if ($tree->[-1]{'ifthen'}) { }
1021	0	0	if (ref $ifthen->{'data'}[0] eq 'ARRAY') { }
1039	0	0	unless $self->omit
1053	16	0	$vis ? :
1063	0	0	$self->{'flags'} & $self->{'rx'}->FLAG_i ? :
1073	13	0	exists $self->{'vis'} ? :
1144	0	0	if (@_)
1146	0	0	if ($how eq '=') { }
	0	0	elsif ($how eq '+') { }
1159	10	0	if $d
1198	9	15	$self->{'dir'} < 0 ? :
1229	11	13	$self->{'dir'} < 0 ? :
1433	2	9	if ($self->{'on'} =~ /^\^/)
1437	3	6	length $self->{'off'} ? :
1471	3	1	if $d
1519	0	2	if @_
1525	1	1	$self->{'neg'} ? :
1532	2	4	$self->{'neg'} ? :
1554	0	2	if @_
1560	1	1	$self->{'neg'} ? :
1567	1	2	$self->{'neg'} ? :
1644	0	0	if (@_)
1646	0	0	if ($how eq '=') { }
	0	0	elsif ($how eq '+') { }
1659	0	0	if $d
1691	0	0	$self->{'flags'} & $self->{'rx'}->FLAG_i ? :
1736	0	0	if $d
1848	4	9	if defined $self->{'arg'} and length $self->{'arg'}
1889	0	0	if (@_)
1891	0	0	if ($how eq '=') { }
	0	0	elsif ($how eq '+') { }
1904	0	0	if $d