| line | % | coverage | branch |
|---|
| 146 | 50 | T | F | unless &GetOptions("output-dir|o=s", \$extractor_opts{'output_dir'}, "strict-pod|s=s", \$extractor_opts{'strict_pod'}, "verbose|v", \$extractor_opts{'verbose'}, "fuzz|f", \$fuzz, "fuzz-all", \$fuzz_all, "fuzz-iters=i", \$fuzz_iters, "corpus-dir|c=s", \$corpus_dir, "help|h", \$cli_opts{'help'}, "man|m", \$cli_opts{'man'}) |
| 148 | 100 | T | F | if $cli_opts{'help'} |
| 149 | 50 | T | F | if $cli_opts{'man'} |
| 151 | 100 | T | F | unless ($extractor_opts{'strict_pod'} =~ /^(off|warn|fatal)$/) |
| 155 | 100 | T | F | unless my $input_file = shift @ARGV |
| 156 | 50 | T | F | unless -f $input_file |
| 168 | 100 | T | F | unless -d $extractor_opts{'output_dir'} |
| 183 | 100 | T | F | if ($fuzz) |
| 185 | 50 | T | F | unless -d $corpus_dir |
| 194 | 50 | T | F | if ($instance) { } |
| 200 | 50 | T | F | $fuzz_all ? : |
| 208 | 50 | T | F | unless ($fuzz_all) |
| 210 | 50 | T | F | if $iconf eq "none" and not %{$schema->{'input'} // {};} |
| 214 | 50 | T | F | unless ($sub_ref) |
| 220 | 50 | T | F | if ($method =~ /^(new|AUTOLOAD|DESTROY|import)$/) |
| 222 | 0 | T | F | if $extractor_opts{'verbose'} |
| 237 | 50 | T | F | if -f $corpus_file |
| 273 | 100 | T | F | if (exists $fuzz_results{$method}) |
| 277 | 50 | T | F | $r->{'bugs_found'} ? : |
| 296 | 50 | T | F | if ($input_confidence_counts{'low'} > 0 or $input_confidence_counts{'medium'} > 0) |
| 303 | 100 | T | F | if (%fuzz_results) |
| 307 | 50 | T | F | if ($total_bugs) { } |
| 314 | 0 | T | F | unless $r->{'bugs_found'} |
| 318 | 0 | T | F | defined $bug->{'input'} ? : |
| 331 | 100 | T | F | if ($extractor_opts{'verbose'}) |
| 349 | 50 | T | F | unless $package |
| 355 | 50 | T | F | unless $package =~ /^[A-Za-z_]\w*(?:::[A-Za-z_]\w*)*\z/ |
| 370 | 100 | T | F | if (-d $candidate) |
| 380 | 50 | T | F | unless eval {
do {
require "$module_file.pm"
}
} |
| 394 | 50 | T | F | if $@ |
| 395 | 0 | T | F | unless defined $obj and ref $obj |