| blib/lib/Util/CommandLine.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 2 | 20 | 10.0 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 0 | 1 | if grep {$_ eq "singleton";} @_ |
| 34 | 0 | 1 | if grep {$_ eq "podhelp";} @_ |
| 50 | 0 | 0 | if ("Proc::PID::File"->running({"dir", shift @dirs})) |
| 57 | 0 | 0 | unless $singleton |
| 63 | 0 | 0 | if index($_[0] || '', "::") != -1 |
| 68 | 0 | 0 | if (/\{/) { } |
| 75 | 0 | 0 | unless &GetOptions(map({if (/\{/) { $$settings{(split(/[|=]/, $_, 0))[0]} = []; $_, $$settings{(split(/[|=]/, $_, 0))[0]}; } else { $_, \$$settings{(split(/[|=]/, $_, 0))[0]}; } ;} map({split(/\s+/, $_, 0);} @_, ("help", "man")))) |
| 86 | 0 | 0 | if not defined $settings->{$_} or ref $settings->{$_} eq "ARRAY" and !@{$settings->{$_};} || @{$settings->{$_};} == 1 && $settings->{$_}[0] eq '' |
| 93 | 0 | 0 | if $settings->{'help'} |
| 94 | 0 | 0 | if $settings->{'man'} |