| /root/.cpan/build/Thunderhorse-0.102-0/bin/thunderhorse | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 26 | 76.9 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 0 | 11 | unless &GetOptions("g|generate=s", \$generate, "c|show-config", \$config, "l|show-locations", \$locations, "t|tabs", \$tabs, "h|help", \$help) |
| 43 | 1 | 10 | unless (my $target = shift @ARGV or $help) |
| 46 | 2 | 9 | if ($help or $error) { } |
| 7 | 2 | elsif (defined $generate) { } | |
| 1 | 1 | elsif ($config) { } | |
| 1 | 0 | elsif ($locations) { } | |
| 47 | 1 | 1 | $error ? : |
| 56 | 7 | 0 | if (defined $namespace) |
| 69 | 6 | 1 | unless ($tabs) |
| 106 | 0 | 7 | unless defined $app_file |
| 109 | 1 | 6 | if $app_file_content =~ /^package ([\w:]+)/mu |
| 112 | 6 | 0 | if $app_file_content =~ /^\s*([\w:]+)->new/mu |
| 130 | 0 | 2 | if ($loc->is_bridge) { } |