| line |
true |
false |
branch |
|
85
|
1 |
11 |
unless ($self->can("set_$function")) |
|
96
|
0 |
11 |
unless my $function = delete $o{'func'} |
|
104
|
1 |
10 |
unless ($req_spec) |
|
108
|
1 |
9 |
unless ($resp_spec) |
|
116
|
1 |
8 |
unless ($method) |
|
120
|
1 |
7 |
unless ($path) |
|
133
|
4 |
1 |
if (ref $setting eq 'HASH') { } |
|
135
|
0 |
4 |
unless $to_exchange = $setting->{'field_name'} |
|
147
|
2 |
3 |
unless (defined $value) |
|
148
|
1 |
1 |
if ($default) |
|
149
|
0 |
1 |
if (ref $default eq 'CODE') { } |
|
156
|
1 |
1 |
if ($required and not defined $value) |
|
163
|
3 |
1 |
if ($self->can($format)) |
|
167
|
0 |
4 |
if ($type) |
|
168
|
0 |
0 |
if (ref $type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type =~ /int/i) { } |
|
|
0 |
0 |
elsif ($type =~ /bool/i) { } |
|
|
0 |
0 |
elsif ($type =~ /hex/i) { } |
|
169
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
if (defined $value and not grep({ref $_ ? $value =~ /$_/ : $value eq $_;} @$type)) |
|
174
|
0 |
0 |
if (defined $value and not $value =~ /^[\d\.]+$/) |
|
179
|
0 |
0 |
if (defined $value and not $value =~ /^[01]$/) |
|
184
|
0 |
0 |
if (defined $value and not $value =~ /^[0-9a0-f]$/i) |
|
190
|
1 |
3 |
if ($checker) |
|
193
|
0 |
1 |
unless my $code = $c->{'ok'} |
|
196
|
0 |
1 |
unless my $err = $c->{'err'} |
|
200
|
1 |
0 |
unless (&$code()) |
|
206
|
3 |
0 |
if (defined $value or $include eq 'always') { } |
|
207
|
0 |
3 |
if (ref $value eq 'HASH') { } |
|
220
|
0 |
5 |
if (my $code = $events->{'keys'}) |
|
223
|
0 |
0 |
if (ref $code eq 'CODE') { } |
|
|
0 |
0 |
elsif (ref $code eq 'ARRAY') { } |
|
238
|
0 |
0 |
if (ref $setting eq 'HASH') { } |
|
251
|
2 |
3 |
if ($events->{'test_request_object'}) |
|
255
|
0 |
3 |
if ($events->{'test_response_object'}) |
|
278
|
1 |
2 |
if ref $resp_specs ne "ARRAY" |
|
285
|
0 |
5 |
if (my $code = $resp_spec->{'raw_process'}) |
|
299
|
0 |
5 |
if (not ref $resp) { } |
|
|
3 |
2 |
elsif (ref $resp eq 'HASH') { } |
|
306
|
0 |
3 |
if (my $code = $resp_spec->{'post_row'}) |
|
320
|
0 |
4 |
if (my $code = $resp_spec->{'post_row'}) |
|
324
|
0 |
4 |
if (my $filter = $resp_spec->{'row_filter'}) |
|
326
|
0 |
0 |
if ($action and not $action =~ /^(next|last)$/) |
|
329
|
0 |
0 |
if ($action eq 'next') { } |
|
|
0 |
0 |
elsif ($action eq 'last') { } |
|
337
|
0 |
4 |
if (my $primary_key = $resp_spec->{'array2hash'}) { } |
|
|
0 |
4 |
elsif (my $pri_key = $resp_spec->{'array2[hash]'}) { } |
|
354
|
0 |
4 |
if $@ |
|
356
|
4 |
0 |
unless %mapped_rows |
|
360
|
0 |
2 |
if (%mapped_rows) |
|
365
|
0 |
2 |
if (my $csort = $resp_spec->{'custom_sort'}) { } |
|
|
2 |
0 |
elsif (my $sort = $resp_spec->{'sort_by'}) { } |
|
375
|
1 |
2 |
wantarray ? : |
|
382
|
0 |
0 |
unless my $path = $options{'path'} |
|
386
|
0 |
0 |
if (ref $path eq "ARRAY") |
|
390
|
0 |
0 |
if $source |
|
409
|
3 |
3 |
if ($way =~ /desc/) { } |
|
|
3 |
0 |
elsif ($way =~ /asc/) { } |
|
410
|
2 |
1 |
if ($way =~ /^n/) { } |
|
418
|
1 |
2 |
if ($way =~ /^n/) { } |
|
432
|
0 |
5 |
if ($ENV{'DEBUG'}) |
|
441
|
27 |
1 |
defined $default && length $default ? : |
|
447
|
30 |
8 |
unless $path =~ /\./ |
|
453
|
1 |
24 |
unless ($item) |
|
459
|
21 |
3 |
if (ref $data eq 'HASH') { } |
|
|
2 |
1 |
elsif (ref $data eq 'ARRAY') { } |
|
460
|
1 |
20 |
unless (exists $data->{$item}) |
|
466
|
1 |
1 |
unless (defined $data->[$item]) |
|
487
|
1 |
20 |
if $my_alias =~ /^_/ or $from_exchange eq "[X]" |
|
491
|
0 |
20 |
if (ref $from_exchange eq 'HASH') { } |
|
494
|
0 |
0 |
ref $from_exchange eq 'ARRAY' ? : |
|
500
|
1 |
19 |
if (my $code = $self->can("response_attr_$my_alias")) |
|
507
|
6 |
1 |
unless $row_spec->{'_others'} |
|
509
|
0 |
2 |
if (my $code = $self->can("response_attr_$key")) |