| line | % | coverage | branch |
|---|
| 80 | 50 | T | F | unless &GetOptions("output|o=s", \$opts{'output'}, "annotated!", \$opts{'annotated'}, "help|h", \$opts{'help'}, "man|m", \$opts{'man'}) |
| 82 | 50 | T | F | if $opts{'help'} |
| 83 | 50 | T | F | if $opts{'man'} |
| 85 | 50 | T | F | unless my $input_file = shift @ARGV |
| 86 | 50 | T | F | unless -f $input_file |
| 89 | 50 | T | F | unless my $package = _detect_package($input_file) |
| 95 | 50 | T | F | unless (@$examples) |
| 101 | 50 | T | F | unless ($opts{'annotated'}) |
| 105 | 50 | T | F | unless (@$examples) |
| 112 | 50 | T | F | if $out_dir and not -d $out_dir |
| 115 | 50 | T | F | unless open my $fh, ">", $opts{'output'} |
| 165 | 50 | T | F | if ($is_annotated) { } |
| 173 | 0 | T | F | defined $expected ? : |
| 176 | 0 | T | F | if ($ctor and $expr =~ /\$obj\s*->/) |
| 183 | 0 | T | F | if (defined $expected) |
| 193 | 50 | T | F | if (@stubs) |
| 197 | 100 | T | F | if (my $neutralized = _neutralize_exec($line)) { } |
| 222 | 50 | T | F | if $line =~ /^\s*#/ |
| 223 | 100 | T | F | unless $line =~ m<\b(?:system|exec)\s*\(|`|\bqx\s*[{(\[/|]> |
| 271 | 50 | T | F | unless open my $fh, "<", $file |
| 273 | 50 | T | F | if /^package\s+([\w:]+)\s*[;{]/ |
| 287 | 50 | T | F | if $@ |
| 288 | 0 | T | F | if $package->can("new") |