| line | % | coverage | branch |
|---|
| 163 | 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'}, "version|V", \$extractor_opts{'version'}, "fuzz|f", \$fuzz, "fuzz-all", \$fuzz_all, "fuzz-iters=i", \$fuzz_iters, "corpus-dir|c=s", \$corpus_dir, "minimize-corpus", \$minimize_corpus, "help|h", \$cli_opts{'help'}, "man|m", \$cli_opts{'man'}) |
| 165 | 100 | T | F | if $cli_opts{'help'} |
| 166 | 50 | T | F | if $cli_opts{'man'} |
| 168 | 50 | T | F | if ($extractor_opts{'version'}) |
| 173 | 100 | T | F | unless ($extractor_opts{'strict_pod'} =~ /^(off|warn|fatal)$/) |
| 177 | 100 | T | F | unless my $input_file = shift @ARGV |
| 178 | 50 | T | F | unless -f $input_file |
| 190 | 100 | T | F | unless -d $extractor_opts{'output_dir'} |
| 205 | 100 | T | F | if ($fuzz) |
| 207 | 100 | T | F | unless -d $corpus_dir |
| 216 | 50 | T | F | if ($instance) { } |
| 222 | 50 | T | F | $fuzz_all ? : |
| 230 | 50 | T | F | unless ($fuzz_all) |
| 232 | 50 | T | F | if $iconf eq "none" and not %{$schema->{'input'} // {};} |
| 236 | 50 | T | F | unless ($sub_ref) |
| 242 | 50 | T | F | if ($method =~ /^(new|AUTOLOAD|DESTROY|import)$/) |
| 244 | 0 | T | F | if $extractor_opts{'verbose'} |
| 259 | 100 | T | F | if -f $corpus_file |
| 263 | 100 | T | F | if ($minimize_corpus) |
| 279 | 100 | T | F | unless $minimize_corpus |
| 306 | 100 | T | F | if (exists $fuzz_results{$method}) |
| 310 | 50 | T | F | $r->{'bugs_found'} ? : |
| 329 | 50 | T | F | if ($input_confidence_counts{'low'} > 0 or $input_confidence_counts{'medium'} > 0) |
| 336 | 100 | T | F | if (%fuzz_results) |
| 340 | 50 | T | F | if ($total_bugs) { } |
| 347 | 0 | T | F | unless $r->{'bugs_found'} |
| 351 | 0 | T | F | defined $bug->{'input'} ? : |
| 364 | 100 | T | F | if ($extractor_opts{'verbose'}) |
| 382 | 50 | T | F | unless $package |
| 388 | 50 | T | F | unless $package =~ /^[A-Za-z_]\w*(?:::[A-Za-z_]\w*)*\z/ |
| 403 | 100 | T | F | if (-d $candidate) |
| 413 | 50 | T | F | unless eval {
do {
require "$module_file.pm"
}
} |
| 427 | 50 | T | F | if $@ |
| 428 | 0 | T | F | unless defined $obj and ref $obj |