| 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'} |