| line | % | coverage | branch |
|---|
| 416 | 50 | T | F | if (defined $conf_file) { } |
| 424 | 50 | T | F | if ($config = "Config::Abstraction"->new("config_dirs", [".", ""], "config_file", $conf_file)) |
| 426 | 100 | T | F | if (defined $$config{"\$module"} or defined $$config{"our \$module"} or not defined $$config{"module"}) |
| 433 | 50 | T | F | if ($config) |
| 434 | 100 | T | F | if exists $config->{'input'} |
| 435 | 50 | T | F | if (exists $config->{'output'}) |
| 436 | 50 | T | F | unless ref $$config{"output"} eq "HASH" |
| 439 | 50 | T | F | if exists $config->{'config'} |
| 440 | 100 | T | F | if exists $config->{'cases'} |
| 441 | 50 | T | F | if exists $config->{'edge_cases'} |
| 442 | 50 | T | F | if exists $config->{'type_edge_cases'} |
| 444 | 50 | T | F | if exists $config->{'module'} |
| 445 | 50 | T | F | if exists $config->{'function'} |
| 446 | 50 | T | F | if exists $config->{'new'} |
| 447 | 100 | T | F | if exists $config->{'yaml_cases'} |
| 448 | 50 | T | F | if exists $config->{'seed'} |
| 449 | 100 | T | F | if exists $config->{'iterations'} |
| 451 | 100 | T | F | if exists $config->{'edge_case_array'} |
| 466 | 50 | T | F | if defined $seed and $seed eq "" |
| 472 | 50 | T | F | unless ($module) |
| 487 | 50 | T | F | if (defined $yaml_cases) |
| 488 | 50 | T | F | unless -f $yaml_cases |
| 491 | 50 | T | F | if ($yaml_data and ref $yaml_data eq "HASH") |
| 497 | 50 | T | F | unless ($outputs and ref $outputs eq "ARRAY") |
| 503 | 50 | T | F | if $valid_input |
| 511 | 0 | T | F | if (exists $cases{$k} and ref $cases{$k} eq "ARRAY" and ref $yaml_corpus_data{$k} eq "ARRAY") |
| 527 | 50 | T | F | unless do $file |
| 539 | 50 | T | F | if (my $full = "${pkg}::$v") |
| 540 | 100 | T | F | if (defined ${$full;}) { } |
| 100 | T | F | elsif (@{$full;}) { } |
| 100 | T | F | elsif (%{$full;}) { } |
| 558 | 100 | T | F | unless $$config{$key} |
| 560 | 50 | T | F | unless ref $$config{"input"} eq "HASH" |
| 565 | 100 | T | F | if (ref $spec) { } |
| 566 | 50 | T | F | unless _valid_type($$spec{"type"}) |
| 568 | 50 | T | F | unless _valid_type($spec) |
| 593 | 100 | T | F | unless defined $v |
| 594 | 50 | T | F | if (ref $v eq "ARRAY") |
| 598 | 50 | T | F | if ref $v and ref $v ne "Regexp" |
| 601 | 50 | T | F | $v =~ /^-?\d+(\.\d+)?$/ ? : |
| 606 | 50 | T | F | unless $href and ref $href eq "HASH" |
| 610 | 100 | T | F | unless ref $def eq "HASH" |
| 613 | 50 | T | F | unless defined $$def{$subk} |
| 614 | 50 | T | F | if (ref $$def{$subk}) |
| 615 | 0 | T | F | unless (ref $$def{$subk} eq "ARRAY" or ref $$def{$subk} eq "Regexp") |
| 628 | 50 | T | F | unless $href and ref $href eq "HASH" |
| 635 | 50 | T | F | unless $href and ref $href eq "HASH" |
| 639 | 0 | T | F | unless ref $aref eq "ARRAY" |
| 651 | 50 | T | F | unless $s =~ /\Q$l\E|\Q$r\E/ |
| 654 | 0 | T | F | unless index($s, $d) != -1 |
| 665 | 50 | T | F | if (scalar @edge_case_array) |
| 677 | 50 | T | F | if (scalar keys %input == 1 and exists $input{'type'} and not ref $input{'type'}) { } |
| 687 | 50 | T | F | $new && ref $new eq 'HASH' ? : |
| 692 | 50 | T | F | if (defined $new) { } |
| 694 | 0 | T | F | if ($new_code eq '') { } |
| 706 | 50 | T | F | if (%all_cases) |
| 710 | 50 | T | F | unless $inputs and ref $inputs eq "ARRAY" |
| 714 | 50 | T | F | if ($expected_str eq q['_STATUS:DIES']) { } |
| 50 | T | F | elsif ($expected_str eq q['_STATUS:WARNS']) { } |
| 720 | 50 | T | F | if (ref $inputs eq "HASH") |
| 724 | 50 | T | F | if ($new) { } |
| 725 | 0 | T | F | if ($status eq 'DIES') { } |
| 0 | T | F | elsif ($status eq 'WARNS') { } |
| 739 | 50 | T | F | if ($status eq 'DIES') { } |
| 50 | T | F | elsif ($status eq 'WARNS') { } |
| 758 | 50 | T | F | if (defined $seed) |
| 786 | 50 | T | F | unless $tt->process(\$template, $vars, \$test) |
| 788 | 50 | T | F | if ($outfile) { } |
| 789 | 50 | T | F | unless &App::Test::Generator::open(my $fh, ">:encoding(UTF-8)", $outfile) |