Branch Coverage

blib/lib/Perl/Lint/Policy/ValuesAndExpressions/ProhibitConstantPragma.pm

Criterion	Covered	Total	%
branch	3	4	75.0

line	true	false	branch
19	7	43	if ($token_type == 93)
21	7	0	if ($next_token->{'type'} == 94 and $next_token->{'data'} eq 'constant')