| line | % | coverage | branch |
|---|
| 171 | 50 | T | F | unless &GetOptions("output-dir|o=s", \$extractor_opts{'output_dir'}, "strict-pod|s=s", \$extractor_opts{'strict_pod'}, "function|F=s", \$function_filter, "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'}) |
| 173 | 100 | T | F | if $cli_opts{'help'} |
| 174 | 50 | T | F | if $cli_opts{'man'} |
| 176 | 50 | T | F | if ($extractor_opts{'version'}) |
| 181 | 100 | T | F | unless ($extractor_opts{'strict_pod'} =~ /^(off|warn|fatal)$/) |
| 185 | 100 | T | F | unless my $input_file = shift @ARGV |
| 186 | 50 | T | F | unless -f $input_file |
| 198 | 100 | T | F | unless -d $extractor_opts{'output_dir'} |
| 211 | 50 | T | F | if (defined $function_filter) |
| 212 | 0 | T | F | unless (exists $schemas->{$function_filter}) |
| 221 | 0 | T | F | if $name eq $function_filter |
| 224 | 0 | T | F | if -f $yml |
| 236 | 100 | T | F | if ($fuzz) |
| 238 | 100 | T | F | unless -d $corpus_dir |
| 247 | 50 | T | F | if ($instance) { } |
| 253 | 50 | T | F | $fuzz_all ? : |
| 261 | 50 | T | F | unless ($fuzz_all) |
| 263 | 50 | T | F | if $iconf eq "none" and not %{$schema->{'input'} // {};} |
| 267 | 50 | T | F | unless ($sub_ref) |
| 273 | 50 | T | F | if ($method =~ /^(new|AUTOLOAD|DESTROY|import)$/) |
| 275 | 0 | T | F | if $extractor_opts{'verbose'} |
| 290 | 100 | T | F | if -f $corpus_file |
| 294 | 100 | T | F | if ($minimize_corpus) |
| 310 | 100 | T | F | unless $minimize_corpus |
| 337 | 100 | T | F | if (exists $fuzz_results{$method}) |
| 341 | 50 | T | F | $r->{'bugs_found'} ? : |
| 360 | 50 | T | F | if ($input_confidence_counts{'low'} > 0 or $input_confidence_counts{'medium'} > 0) |
| 367 | 100 | T | F | if (%fuzz_results) |
| 371 | 50 | T | F | if ($total_bugs) { } |
| 378 | 0 | T | F | unless $r->{'bugs_found'} |
| 382 | 0 | T | F | defined $bug->{'input'} ? : |
| 395 | 100 | T | F | if ($extractor_opts{'verbose'}) |
| 413 | 50 | T | F | unless $package |
| 419 | 50 | T | F | unless $package =~ /^[A-Za-z_]\w*(?:::[A-Za-z_]\w*)*\z/ |
| 434 | 100 | T | F | if (-d $candidate) |
| 444 | 50 | T | F | unless eval {
do {
require "$module_file.pm"
}
} |
| 458 | 50 | T | F | if $@ |
| 459 | 0 | T | F | unless defined $obj and ref $obj |