Branch Coverage

blib/lib/Perl/Lint/Policy/BuiltinFunctions/ProhibitStringyEval.pm
Criterion Covered Total %
branch 28 30 93.3


line true false branch
22 101 246 if ($token_type == 70 and $token_data eq 'eval')
24 7 94 if ($token->{'type'} == 107)
26 1 6 if ($token->{'type'} == 108)
32 98 2 if ($token_type != 109)
33 48 50 if ($allow_includes)
34 5 43 if ($token_type == 172) { }
20 23 elsif ($token_type == 173) { }
4 19 elsif ($token_type == 146) { }
19 0 elsif ($token_type == 145) { }
35 4 1 if ($token->{'data'} =~ /\A(?:use|require)[^;]*(?:;|;\s*1;)?\Z/)
40 17 3 if ($token->{'data'} =~ /\A(?:use|require)\s+([^;\s]+)[^;]*(?:;|;\s*1;)?\Z/)
41 16 1 unless ($1 =~ /\A\$/)
49 4 0 if ($token->{'data'} =~ /\A(?:use|require)[^;]*(?:;|;\s*1;)?\Z/)
56 17 2 if ($token->{'data'} =~ /\A(?:use|require)\s+([^;\s]+)[^;]*(?:;|;\s*1;)?\Z/)
57 16 1 unless ($1 =~ /\A\$/)