| line | % | coverage | branch |
|---|
| 66 | 50 | T | F | unless &GetOptions("output-dir|o=s", \$opts{'output_dir'}, "emit-tests|e", \$opts{'emit_tests'}, "test-dir|t=s", \$opts{'test_dir'}, "strict-pod|s=s", \$opts{'strict_pod'}, "verbose|v", \$opts{'verbose'}, "help|h", \$cli_opts{'help'}, "man|m", \$cli_opts{'man'}) |
| 68 | 50 | T | F | if $cli_opts{'help'} |
| 69 | 50 | T | F | if $cli_opts{'man'} |
| 71 | 50 | T | F | unless ($opts{'strict_pod'} =~ /^(off|warn|fatal)$/) |
| 75 | 50 | T | F | unless my $input_file = shift @ARGV |
| 78 | 50 | T | F | unless -f $input_file |
| 87 | 50 | T | F | unless -d $opts{'output_dir'} |
| 141 | 50 | T | F | if ($opts{'emit_tests'}) |
| 146 | 50 | T | F | unless -d $opts{'test_dir'} |
| 152 | 50 | T | F | unless open my $fh, "<", $input_file |
| 157 | 50 | T | F | if (/^\s*package\s+([\w:]+)\s*;/) |
| 164 | 50 | T | F | unless $package_name |
| 178 | 50 | T | F | $accessor eq 'getter' ? : |
| 50 | T | F | $accessor eq 'setter' ? : |
| 50 | T | F | $accessor eq 'getset' ? : |
| 50 | T | F | $accessor eq 'setter' ? : |
| 193 | 50 | T | F | if $opts{'verbose'} |
| 217 | 50 | T | F | unless open my $out, ">", $test_file |
| 227 | 50 | T | F | if ($opts{'verbose'}) |