| line |
true |
false |
branch |
|
43
|
20 |
9 |
if (ref $args eq 'HASH') { } |
|
45
|
33 |
12 |
$_ =~ /^-(.*)$/ ? : |
|
49
|
7 |
13 |
if keys %ops |
|
58
|
19 |
10 |
unless $self->on_error_return_encoded or $self->on_error_return_tainted |
|
61
|
26 |
3 |
if $self->on_error_return_undef or $self->on_error_return_encoded |
|
64
|
21 |
8 |
if $self->on_error_return_undef |
|
77
|
31 |
31 |
unless defined $value |
|
88
|
18 |
24 |
if $$self{'in_init'} |
|
103
|
75 |
57 |
unless defined $value |
|
104
|
24 |
33 |
if $value |
|
105
|
24 |
33 |
$value ? : |
|
115
|
116 |
61 |
unless defined $value |
|
116
|
9 |
52 |
if $value |
|
117
|
9 |
52 |
$value ? : |
|
127
|
84 |
65 |
unless defined $value |
|
128
|
9 |
56 |
if $value |
|
129
|
9 |
56 |
$value ? : |
|
138
|
60 |
41 |
unless @_ |
|
147
|
129 |
31 |
unless @_ |
|
173
|
31 |
58 |
if $$self{'in_init'} |
|
174
|
43 |
15 |
if (ref $vars eq 'HASH') |
|
175
|
23 |
20 |
if (keys %$vars == 0) { } |
|
194
|
45 |
14 |
unless my $params = $$options{$self->op} |
|
196
|
5 |
32 |
if /^-.*/ |
|
209
|
48 |
10 |
if ($self->allow_unexpected) |
|
211
|
20 |
153 |
if $_ eq $self->runmode_name |
|
212
|
14 |
139 |
if (/\[/ or /^object--/) |
|
216
|
140 |
13 |
unless $self->Op->Param($_) |
|
232
|
7 |
7 |
unless $param_name =~ /^object--(\w+)--/ |
|
235
|
0 |
14 |
unless $$self{'_objects'}{$name} |
|
251
|
149 |
47 |
if (@_ == 1) { } |
|
257
|
43 |
4 |
if (ref $vars eq 'ARRAY') { } |
|
|
3 |
1 |
elsif (ref $vars eq 'HASH') { } |
|
277
|
192 |
3 |
if ($param->isa('CGI::ValidOp::Param')) |
|
279
|
191 |
1 |
if defined $$self{'_vars'} |
|
291
|
18 |
0 |
if $$self{'_vars'} |
|
295
|
1 |
127 |
if $self->return_only_received and not grep(/^$name$/, @vars) |
|
298
|
2 |
16 |
unless keys %params |
|
300
|
15 |
1 |
wantarray ? : |
|
312
|
6 |
0 |
if (defined $object_name) |
|
313
|
6 |
0 |
$$self{'_objects'}{$object_name} ? : |
|
330
|
0 |
0 |
if (defined $object_name) |
|
332
|
0 |
0 |
$$self{'_objects'}{$object_name} ? : |
|
358
|
13 |
32 |
unless $alias and $self->ops |
|
360
|
19 |
45 |
unless $self->ops->{$_}{-'alias'} |
|
361
|
1 |
44 |
if $self->ops->{$_}{-'alias'} eq $alias |
|
363
|
12 |
32 |
if ref $self->ops->{$_}{-'alias'} eq 'ARRAY' and grep /^$alias$/, @{$self->ops->{$_}{-'alias'};} |
|
373
|
35 |
32 |
if ($$self{'_vars'} and $$self{'_vars'}{$self->runmode_name}) { } |
|
376
|
5 |
30 |
if $self->op_alias($op_name) |
|
380
|
18 |
17 |
unless $self->ops and grep /^$op_name$/i, keys %{$self->ops;} |
|
394
|
3 |
677 |
if $op_name and not $op_name =~ /^\w+$/ |
|
396
|
675 |
2 |
unless ($op_name) |
|
397
|
616 |
59 |
if $$self{'Op'} |
|
407
|
3 |
42 |
$self->on_error_return_tainted ? : |
|
|
16 |
45 |
$self->on_error_return_encoded ? : |
|
424
|
2 |
109 |
unless ($param_name) |
|
426
|
1 |
1 |
if @params |
|
430
|
8 |
101 |
if (not $param and $checks) |
|
433
|
89 |
20 |
if $param |
|
441
|
2 |
25 |
unless $self->Op->Param |
|
445
|
312 |
50 |
unless my $errors = $_->errors |
|
449
|
23 |
2 |
if @errors |