Branch Coverage

blib/lib/Perl/Lint/Policy/ValuesAndExpressions/ProhibitComplexVersion.pm
Criterion Covered Total %
branch 51 60 85.0


line true false branch
16 1 5 if (my $this_policies_arg = $$args{'prohibit_complex_version'})
25 72 298 if ($token_type == 91) { }
2 587 elsif ($token_type == 94 and $token_data eq 'version') { }
32 1 71 if ($token_type == 107) { }
71 0 elsif ($token_type == 166 || $token_type == 194 and $token_data eq '$VERSION') { }
37 0 2 if ($token_type == 107) { }
1 1 elsif ($token_type == 108) { }
1 0 elsif ($token_type == 166 || $token_type == 194 and $token_data eq '$VERSION') { }
41 1 0 if (--$left_paren_num <= 0)
60 72 0 if ($is_version_assigned)
66 11 61 if ($token_type == 166 or $token_type == 194) { }
16 45 elsif ($token_type == 172) { }
2 43 elsif ($token_type == 146) { }
5 38 elsif ($token_type == 127) { }
9 29 elsif ($token_type == 107) { }
3 52 elsif ($token_type == 87 or $token_type == 70 and $token_data eq 'eval') { }
70 9 2 if ($token_data ne '$VERSION' and $token_data =~ /\A\$[A-Z0-9_]+\Z/ or $$next_token{'type'} == 126)
84 1 15 if ($token_data =~ /\A\$(?:\S+::)+\S+\Z/)
97 1 1 if ($$token{'data'} =~ /\A\$(?:\S+::)+\S+\Z/)
109 5 0 if ($$token{'type'} == 126)
123 79 1408 if ($token_type == 107) { }
83 1325 elsif ($token_type == 108) { }
2 1323 elsif ($token_type == 126) { }
127 8 75 if (--$left_paren_num <= 0)
144 3 0 if ($$token{'type'} == 109)
148 0 33 if ($token_type == 109) { }
3 30 elsif ($token_type == 110) { }
3 27 elsif ($token_type == 126) { }
152 3 0 if (--$left_brace_num <= 0)
171 1 1 if ($forbid_use_version)