Branch Coverage

blib/lib/Regexp/Parser/Objects.pm

Criterion	Covered	Total	%
branch	70	186	37.6

line	true	false	branch
34	51	11	exists $self->{'vis'} ? :
39	66	0	exists $self->{'raw'} ? :
49	0	11	unless ($self->{'down'})
63	20	84	if @_
71	0	64	if $self->omit
94	0	8	if $class =~ /::anchor$/
145	0	0	if @_
153	0	0	$self->{'neg'} ? :
158	0	0	$self->{'neg'} ? :
180	0	0	if @_
186	0	0	$self->{'neg'} ? :
193	0	0	$self->{'neg'} ? :
215	0	0	if @_
221	0	0	$self->{'neg'} ? :
228	8	8	$self->{'neg'} ? :
263	0	2	$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	0	6	unless defined $vis
365	0	2	if (ref $type) { }
380	0	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	0	1	if (ref $self->{'data'}) { }
412	1	0	ref $self->{'how'} eq 'SCALAR' ? :
414	0	1	$self->{'neg'} ? :
455	0	1	$neg ? :
471	0	0	if @_
477	0	1	$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	6	6	if (@$st and @{$st->[-1];} and $st->[-1][-1]->type eq 'ifthen') { }
	0	6	elsif (@$st and @{$st->[-1];} and $st->[-1][-1]->family eq $self->family) { }
570	0	0	unless $br->{'zerolen'} &&= $_->{'zerolen'}
583	6	0	unless $tree->[-1]{'zerolen'} &&= $_->{'zerolen'}
598	42	1	unless defined $vis
616	3	66	$self->{'flags'} & $self->{'rx'}->FLAG_i ? :
627	0	43	unless @$tree
629	0	43	unless $tree->[-1] == $self
630	14	29	unless @$tree > 1
632	24	5	unless $prev->type eq $self->type
672	5	15	if ($min == 0 and $max eq '') { }
	6	9	elsif ($min == 1 and $max eq '') { }
680	35	49	if ($min == 0 and $max eq '') { }
	27	22	elsif ($min == 1 and $max eq '') { }
	2	20	elsif ($min == 0 and $max == 1) { }
	4	16	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	0	17	if @$tree == 0 or $tree->[-1]->family eq 'flags'
725	0	17	if $tree->[-1]->family eq 'quant'
729	0	17	if ($tree->[-1]->family eq 'exact' and @{$tree->[-1]{'data'};} > 1) { }
741	0	17	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	34	elsif ($tree->[-1]{'zerolen'} and $self->{'max'} eq '') { }
793	0	9	length $self->{'off'} ? :
808	0	0	if (@_)
810	0	0	if ($how eq '=') { }
	0	0	elsif ($how eq '+') { }
823	1	0	if $d
883	0	0	if (@_)
885	0	0	if ($how eq '=') { }
	0	0	elsif ($how eq '+') { }
898	0	0	if $d
945	0	26	unless $tree = pop @{$$rx{'stack'};}
951	7	13	if $self->family eq 'close' and $tree->[-1]->can('nparen')
954	6	14	if ($tree->[-1]{'ifthen'}) { }
959	6	0	if (ref $ifthen->{'data'}[0] eq 'ARRAY') { }
977	0	20	unless $self->omit
1006	0	0	unless $rx->{'tree'} = pop @{$$rx{'stack'};}
1010	0	0	if $self->family eq 'close' and $tree->[-1]->can('nparen')
1013	0	0	if ($tree->[-1]{'ifthen'}) { }
1018	0	0	if (ref $ifthen->{'data'}[0] eq 'ARRAY') { }
1036	0	0	unless $self->omit
1059	0	0	$self->{'flags'} & $self->{'rx'}->FLAG_i ? :
1097	0	0	if (@_)
1099	0	0	if ($how eq '=') { }
	0	0	elsif ($how eq '+') { }
1112	10	0	if $d
1151	2	5	$self->{'dir'} < 0 ? :
1182	2	5	$self->{'dir'} < 0 ? :
1387	1	1	length $self->{'off'} ? :
1421	3	1	if $d