| blib/lib/Module/Format/PerlMF_App.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 16 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 0 | 0 | if (@_) |
| 69 | 0 | 0 | unless (defined $op) |
| 74 | 0 | 0 | if ($op eq '-h' or $op eq '--help') { } |
| 0 | 0 | elsif ($op eq '--man') { } | |
| 83 | 0 | 0 | unless (exists $ops_to_formats{$op}) |
| 95 | 0 | 0 | unless (my $ret = &GetOptionsFromArray($argv, '0!', sub { $delim = "\000"; $suffix = ''; } , 'n!', sub { $delim = "\n"; $suffix = "\n"; } , 'help|h', \$help, 'man', \$man)) |
| 110 | 0 | 0 | if ($help) |
| 115 | 0 | 0 | if ($man) |