Branch Coverage

blib/lib/Perl/Lint/Policy/InputOutput/ProhibitTwoArgOpen.pm
Criterion Covered Total %
branch 27 30 90.0


line true false branch
21 2 123 if ($token_type == 93) { }
55 122 elsif ($token_type == 70 and $token_data eq 'open') { }
27 2 0 if ($token_type == 171)
29 1 1 if ($token_data <= 5.005)
39 31 24 if ($token_type == 107) { }
46 0 177 if ($token_type == 107) { }
31 146 elsif ($token_type == 108) { }
83 75 elsif ($token_type != 104 and $token_type != 146 and $token_type != 145 and $token_type != 151 and $token_kind != 3) { }
50 31 0 if --$left_paren_num <= 0
62 16 15 if (scalar @args < 3)
64 4 12 if ($second and $second eq '-|' || $second eq '|-' || $second =~ /STD(?:OUT|ERR|IN)\Z/)
88 24 115 if ($token_kind == 21 or $token_kind == 1) { }
55 76 elsif ($token_type != 104 and $token_type != 146 and $token_type != 145 and $token_type != 151 and $token_kind != 3) { }
101 17 7 if (scalar @args < 3)
103 1 12 if ($second and $second eq '-|' || $second eq '|-' || $second =~ /STD(?:OUT|ERR|IN)\Z/)