| line |
true |
false |
branch |
|
27
|
0 |
0 |
if $request->{'block_hash'}{$key_or_name} |
|
55
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
57
|
0 |
0 |
if @_ > 1 |
|
74
|
0 |
0 |
if (ref $request->{'select_list'} eq 'ARRAY') |
|
78
|
0 |
0 |
unless $subst->{$1} |
|
|
0 |
0 |
if $f =~ s/\$(\w+)/"\$$1" unless $subst->{$1};/ego |
|
84
|
0 |
0 |
if (ref $request->{'tables_hash'} eq 'HASH') |
|
88
|
0 |
0 |
if ($k =~ qr/ ^ \$ (\w+) $ /sx) |
|
113
|
0 |
0 |
if ref $request->{'select_list'} eq 'ARRAY' |
|
115
|
0 |
0 |
if (defined $subst and ref $subst eq 'HASH') |
|
119
|
0 |
0 |
unless $subst->{$1} |
|
172
|
0 |
0 |
if (defined $real_name) { } |
|
174
|
0 |
0 |
if ($request->{'tables_hash'}{"\$$table_name"}) |
|
209
|
0 |
0 |
if $request->{'valid'} |
|
223
|
0 |
0 |
unless ref $request->{'valid'} |
|
237
|
0 |
0 |
unless ref $request->{'valid'} |
|
239
|
0 |
0 |
if ref $clean eq 'ARRAY' |
|
240
|
0 |
0 |
unless defined $clean |
|
254
|
0 |
0 |
unless ref $request->{'valid'} |
|
258
|
0 |
0 |
if (ref $clean eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (defined $clean and $clean ne '') { } |
|
284
|
0 |
0 |
unless ref $request->{'valid'} |
|
327
|
0 |
0 |
unless (defined $request->{'raw_body'}) |
|
334
|
0 |
0 |
unless defined $request->{'raw_body'} and $request->{'raw_body'} ne '' |
|
342
|
0 |
0 |
if ($request->{'raw_body'} =~ / ^ [{] .* [}] $ | ^ [\[] .* [\]] $ /six) { } |
|
|
0 |
0 |
elsif ($content_type =~ qr"^application/x-www-form-urlencoded"six) { } |
|
345
|
0 |
0 |
unless (defined $request->{'decoded_body'}) |
|
404
|
0 |
0 |
unless defined $code and $code =~ qr/^\d\d\d$/ |
|
407
|
0 |
0 |
unless ($message) |
|
409
|
0 |
0 |
if ($code eq '400') { } |
|
|
0 |
0 |
elsif ($code eq '404') { } |
|
452
|
0 |
0 |
unless defined $field_name and $field_name ne '' |
|
459
|
0 |
0 |
if ($request->{'field_list'}[$i]{'field'} eq $field_name) |
|
486
|
0 |
0 |
if $Web::DataService::DEBUG |
|
524
|
0 |
0 |
if $will_handle |
|
540
|
0 |
0 |
$will_handle ? : |
|
545
|
0 |
0 |
if ($offset > 0) { } |
|
|
0 |
0 |
elsif (defined $limit and $limit ne 'all') { } |
|
548
|
0 |
0 |
$limit eq 'all' ? : |
|
578
|
0 |
0 |
unless defined $arg and $arg eq '0' || $arg eq '1' || $arg eq '2' |
|
581
|
0 |
0 |
if ($arg eq '2') { } |
|
|
0 |
0 |
elsif ($arg eq '1') { } |
|
|
0 |
0 |
elsif ($arg eq '0') { } |
|
607
|
0 |
0 |
$_[0]{'display_counts'} ? : |
|
620
|
0 |
0 |
if ($request->{'display_counts'}) |
|
654
|
0 |
0 |
if defined $m and $m ne '' |
|
667
|
0 |
0 |
unless ref $request->{'warnings'} eq 'ARRAY' |
|
676
|
0 |
0 |
unless ref $self->{'cautions'} eq 'ARRAY' |
|
685
|
0 |
0 |
if ref $self->{'cautions'} eq 'ARRAY' |
|
694
|
0 |
0 |
unless ref $self->{'errors'} eq 'ARRAY' |
|
703
|
0 |
0 |
if ref $self->{'errors'} eq 'ARRAY' |
|
763
|
0 |
0 |
if $ds->{'special'}{'datainfo'} |
|
764
|
0 |
0 |
if $ds->{'special'}{'linebreak'} |
|
765
|
0 |
0 |
if $ds->{'special'}{'count'} |
|
766
|
0 |
0 |
if $ds->{'special'}{'header'} |
|
767
|
0 |
0 |
if $ds->{'special'}{'save'} |
|
778
|
0 |
0 |
unless defined $request->{'clean_params'}{$p} |
|
779
|
0 |
0 |
if $skip{$p} |
|
790
|
0 |
0 |
if (ref $v and $v->can('regenerate')) |
|
830
|
0 |
0 |
unless defined $request->{'result_count'} |
|
835
|
0 |
0 |
defined $request->{'result_offset'} && $request->{'result_offset'} > 0 ? : |
|
842
|
0 |
0 |
if (defined $request->{'result_limit'} and $request->{'result_limit'} ne 'all' and $window_start + $request->{'result_limit'} < $window_end) |
|
864
|
0 |
0 |
$_[0]{'output_linebreak'} eq 'lf' ? : |
|
|
0 |
0 |
$_[0]{'output_linebreak'} eq 'cr' ? : |
|
892
|
0 |
0 |
if ref $request->{'dbh'} |
|
932
|
0 |
0 |
unless ref $summary eq 'HASH' |
|
947
|
0 |
0 |
unless defined $record |
|
949
|
0 |
0 |
unless ref $record and &reftype($record) eq 'HASH' |
|
966
|
0 |
0 |
unless @_ |
|
970
|
0 |
0 |
if (scalar @_ == 1 and ref $_[0] and &reftype($_[0]) eq 'ARRAY') |
|
982
|
0 |
0 |
unless defined $item |
|
983
|
0 |
0 |
unless ref $item and &reftype($item) eq 'ARRAY' || &reftype($item) eq 'HASH' |
|
986
|
0 |
0 |
if (&reftype($item) eq 'ARRAY') { } |
|
1011
|
0 |
0 |
unless defined $data |
|
1013
|
0 |
0 |
if ref $data and &reftype($data) ne 'SCALAR' |
|
1016
|
0 |
0 |
ref $data ? : |
|
1031
|
0 |
0 |
if (ref $_[0] eq 'ARRAY') { } |
|
1053
|
0 |
0 |
unless defined $sth |
|
1055
|
0 |
0 |
unless ref $sth and $sth->can('fetchrow_hashref') |
|
1072
|
0 |
0 |
unless ref $request->{'main_result'} eq 'ARRAY' |
|
1073
|
0 |
0 |
unless @_ |
|
1075
|
0 |
0 |
unless ref $_[0] and &reftype($_[0]) eq 'HASH' |