| script/tsd-extract | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 42 | 47.6 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 0 | 1 | unless &GetOptions("help|h", \$help, "version", \$version, "output|o=s", \$output_file, "timestamps|t", \$extract_timestamps, "timestamp-dir|d=s", \$timestamp_dir, "verbose|v", \$verbose) |
| 31 | 0 | 1 | if ($help) |
| 37 | 0 | 1 | if ($version) |
| 44 | 0 | 1 | unless ($input_file) |
| 50 | 0 | 1 | unless (-f $input_file) |
| 55 | 0 | 1 | if ($extract_timestamps and not $timestamp_dir) |
| 59 | 0 | 1 | if $verbose |
| 60 | 0 | 1 | if $verbose |
| 67 | 0 | 1 | if ($@) |
| 71 | 0 | 1 | if $verbose |
| 72 | 0 | 1 | if $verbose |
| 76 | 1 | 0 | if (defined $content) { } |
| 78 | 1 | 0 | unless ($output_file) |
| 83 | 0 | 1 | if $verbose |
| 86 | 0 | 1 | unless open my $fh, ">:raw", $output_file |
| 91 | 0 | 1 | if $verbose |
| 97 | 1 | 0 | if ($extract_timestamps) |
| 98 | 0 | 1 | if $verbose |
| 101 | 0 | 1 | unless (-d $timestamp_dir) |
| 102 | 0 | 0 | unless mkdir $timestamp_dir |
| 106 | 1 | 0 | if ($token_count > 0) { } |