| line | % | coverage | branch |
|---|
| 105 | 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) |
| 116 | 100 | T | F | if $help |
| 118 | 100 | T | F | if ($version) |
| 127 | 50 | T | F | if ($replay_corpus) |
| 128 | 0 | T | F | if $dry_run |
| 129 | 0 | T | F | if $infile |
| 132 | 0 | T | F | unless @corpus_files |
| 136 | 0 | T | F | if ($outfile) { } |
| 137 | 0 | T | F | unless &main::open(my $fh, ">", $outfile) |
| 143 | 0 | T | F | if ($run) |
| 152 | 50 | T | F | if ($infile and @ARGV) |
| 156 | 50 | T | F | if ($infile) |
| 158 | 100 | T | F | if ($@) |
| 161 | 50 | T | F | unless (ref $schema eq "HASH") |
| 164 | 50 | T | F | unless ($schema->{'function'}) |
| 169 | 50 | T | F | unless $infile ||= shift @ARGV |
| 171 | 50 | T | F | if ($dry_run and $run) |
| 175 | 100 | T | F | if ($dry_run and $outfile) |
| 179 | 50 | T | F | if ($verbose) |
| 183 | 50 | T | F | if ($run and not $outfile) |
| 192 | 100 | T | F | if ($dry_run) { } |
| 50 | T | F | elsif ($outfile and -e $outfile and not $run) { } |
| 199 | 50 | T | F | unless (eval {
do {
"App::Test::Generator"->generate($infile, $tmp);
1
}
}) |
| 212 | 50 | T | F | if ($outfile) |
| 213 | 50 | T | F | if $outfile =~ /\.(pl|cgi)$/ |
| 214 | 50 | T | F | if ($run) |
| 252 | 0 | T | F | if (-f $path) { } |
| 0 | T | F | elsif (-d $path) { } |
| 305 | 0 | T | F | if eval {
do {
require $mod;
1
}
} and $json_module = $mod |
| 307 | 0 | T | F | unless $json_module |
| 314 | 0 | T | F | unless &main::open(my $fh, "<", $file) |
| 321 | 0 | T | F | if ($@) |
| 327 | 0 | T | F | unless @{$bugs;} |
| 363 | 0 | T | F | if ($test_count == 0) |
| 371 | 0 | T | F | if $mod eq "UNKNOWN::Module" |
| 424 | 0 | T | F | unless defined $input |
| 427 | 0 | T | F | if $input =~ /^-?(?:\d+\.?\d*|\.\d+)$/ |
| 479 | 0 | T | F | unless -f $schema_file |
| 481 | 0 | T | F | unless &main::open(my $fh, "<", $schema_file) |
| 483 | 0 | T | F | if (/^module:\s*(\S+)/) |