Branch Coverage

blib/lib/ABNF/Grammar.pm

Criterion	Covered	Total	%
branch	47	80	58.7

line	true	false	branch
102	0	5	unless @_ > 0
	0	5	unless ($Method::Signatures::mutc{'cache'}{'Str'} ||= 'Method::Signatures'->_make_constraint('Str'))->check($_[0])
111	0	5	unless open my $file, $fname
116	0	5	unless close $file
122	1	21	unless exists $$self{'_rules'}{$command}
140	0	0	unless @_ > 0
	0	0	unless ($Method::Signatures::mutc{'cache'}{'Str'} ||= 'Method::Signatures'->_make_constraint('Str'))->check($_[0])
151	0	0	unless exists $$self{'_rules'}{$command}
157	0	5	unless @_ > 0
	0	5	if @_ > 1
160	0	5	unless my $rules = $parser->parse($content)
164	0	30	if exists $$self{'_rules'}{$$rule{'name'}}
184	0	158420	unless @_ > 0
	0	158420	unless ($Method::Signatures::mutc{'cache'}{'Str'} ||= 'Method::Signatures'->_make_constraint('Str'))->check($_[0])
	0	158420	if @_ > 1
185	1	158419	unless exists $$self{'_rules'}{$name}
203	0	4	if @_ > 0
219	0	3	unless @_ > 0
	0	3	unless ($Method::Signatures::mutc{'cache'}{'Str'} ||= 'Method::Signatures'->_make_constraint('Str'))->check($_[0])
	0	3	unless @_ > 1
	0	3	if @_ > 2
220	1	2	unless exists $$self{'_rules'}{$rule}
221	1	1	unless $$value{'name'} eq $rule
237	0	6	unless @_ > 0
	0	6	unless ($Method::Signatures::mutc{'cache'}{'Str'} ||= 'Method::Signatures'->_make_constraint('Str'))->check($_[0])
	0	6	unless @_ > 1
	0	6	if @_ > 2
238	1	5	unless exists $$BASIC_RULES{$rule}
239	1	4	unless $$value{'name'} eq $rule
252	0	53	unless @_ > 0
	0	53	unless ($Method::Signatures::mutc{'cache'}{'Str'} ||= 'Method::Signatures'->_make_constraint('Str'))->check($_[0])
	0	53	if @_ > 1
264	0	3	if @_ > 0
280	0	40	unless @_ > 0
	0	40	if @_ > 1
284	31	9	if ($$value{'class'} eq 'Group' and $$value{'value'}[0]{'class'} eq 'Literal')
291	26	5	if ($$value{'value'}[0]{'class'} eq 'Reference' and $$value{'value'}[0]{'name'} eq 'SP')
299	5	26	if ($$value{'value'}[-1]{'class'} eq 'Reference' and $$value{'value'}[-1]{'name'} eq 'CRLF')
307	19	21	wantarray ? :
318	0	5	if @_ > 0