| line |
true |
false |
branch |
|
34
|
0 |
0 |
if ($self->probe_cgi) { } |
|
36
|
0 |
0 |
exists $args{-'cgiopt'} ? : |
|
37
|
0 |
0 |
unless exists $args{-'cgicode'} |
|
38
|
0 |
0 |
exists $args{-'cginew'} ? : |
|
61
|
0 |
0 |
if $$self{'cgi'} |
|
67
|
0 |
0 |
if ($arg =~ s/^--?//) { } |
|
70
|
0 |
0 |
if ($arg =~ /^([^=]+)=(.*)/) { } |
|
82
|
0 |
0 |
if ($val_idx >= @args or $args[$val_idx] =~ /^-/) |
|
91
|
0 |
0 |
@values == 1 ? : |
|
|
0 |
0 |
@values ? : |
|
108
|
0 |
0 |
if $$self{'cgi'} |
|
110
|
0 |
0 |
unless open ARGS, '>', $file |
|
116
|
0 |
0 |
if (not defined $value) { } |
|
|
0 |
0 |
elsif (ref $value) { } |
|
138
|
0 |
0 |
if $$self{'cgi'} |
|
142
|
0 |
0 |
unless open ARGS, '<', $file |
|
177
|
0 |
0 |
if ($$self{'cgi'}) |
|
191
|
0 |
0 |
if $$self{'cgi'} |
|
197
|
0 |
0 |
if @_ == 0 |
|
200
|
0 |
0 |
if (@_ == 1) { } |
|
206
|
0 |
0 |
if ($_[0] =~ /^-(name|value)\z/ and @_ % 2 == 0) { } |
|
210
|
0 |
0 |
if (exists $args{-'name'}) { } |
|
214
|
0 |
0 |
if (exists $args{-'value'}) |
|
232
|
0 |
0 |
@_ == 1 ? : |
|
237
|
0 |
0 |
if $set |
|
239
|
0 |
0 |
if (wantarray and ref $$self{'cli'}{$param_name} eq 'ARRAY') |
|
255
|
0 |
0 |
if $$self{'cgi'} |
|
260
|
0 |
0 |
wantarray ? : |
|
264
|
0 |
0 |
if (exists $$self{'cli'}{$param}) { } |
|
266
|
0 |
0 |
if (open my $fh, '<', $$self{'cli'}{$param}) { } |
|
281
|
0 |
0 |
wantarray ? : |
|
289
|
0 |
0 |
if $$self{'cgi'} |
|
302
|
0 |
0 |
if $$self{'cgi'} |