| line | % | coverage | branch |
|---|
| 110 | 50 | T | F | unless &GetOptions("help|h", \$help, "input|i=s", \$infile, "dry-run|n", \$dry_run, "output|o=s", \$outfile, "run|r", \$run, "verbose|v", \$verbose, "version|V", \$version, "replay-corpus|R=s", \$replay_corpus) |
| 121 | 100 | T | F | if $help |
| 123 | 100 | T | F | if ($version) |
| 132 | 50 | T | F | if ($replay_corpus) |
| 133 | 0 | T | F | if $dry_run |
| 134 | 0 | T | F | if $infile |
| 137 | 0 | T | F | unless @corpus_files |
| 141 | 0 | T | F | if ($outfile) { } |
| 142 | 0 | T | F | unless &main::open(my $fh, ">", $outfile) |
| 148 | 0 | T | F | if ($run) |
| 157 | 50 | T | F | if ($infile and @ARGV) |
| 161 | 50 | T | F | if ($infile) |
| 163 | 100 | T | F | if ($@) |
| 166 | 50 | T | F | unless (ref $schema eq "HASH") |
| 169 | 50 | T | F | unless ($schema->{'function'}) |
| 174 | 50 | T | F | unless $infile ||= shift @ARGV |
| 176 | 50 | T | F | if ($dry_run and $run) |
| 180 | 100 | T | F | if ($dry_run and $outfile) |
| 184 | 50 | T | F | if ($verbose) |
| 188 | 50 | T | F | if ($run and not $outfile) |
| 197 | 100 | T | F | if ($dry_run) { } |
| 50 | T | F | elsif ($outfile and -e $outfile and not $run) { } |
| 204 | 50 | T | F | unless (eval {
do {
"App::Test::Generator"->generate($infile, $tmp);
1
}
}) |
| 217 | 50 | T | F | if ($outfile) |
| 218 | 50 | T | F | if $outfile =~ /\.(pl|cgi)$/ |
| 219 | 50 | T | F | if ($run) |
| 255 | 0 | T | F | if (-f $path) { } |
| 0 | T | F | elsif (-d $path) { } |
| 308 | 0 | T | F | if eval {
do {
require $mod;
1
}
} and $json_module = $mod |
| 310 | 0 | T | F | unless $json_module |
| 317 | 0 | T | F | unless &main::open(my $fh, "<", $file) |
| 324 | 0 | T | F | if ($@) |
| 330 | 0 | T | F | unless @{$bugs;} |
| 366 | 0 | T | F | if ($test_count == 0) |
| 374 | 0 | T | F | if $mod eq "UNKNOWN::Module" |
| 427 | 0 | T | F | unless defined $input |
| 430 | 0 | T | F | if $input =~ /^-?(?:\d+\.?\d*|\.\d+)$/ |
| 482 | 0 | T | F | unless -f $schema_file |
| 484 | 0 | T | F | unless &main::open(my $fh, "<", $schema_file) |
| 486 | 0 | T | F | if (/^module:\s*(\S+)/) |