| 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 '' |
|
343
|
0 |
0 |
if ($content_type =~ qr"^application/x-www-form-urlencoded"six) { } |
|
|
0 |
0 |
elsif ($request->{'raw_body'} =~ / ^ [{] .* [}] $ | ^ [\[] .* [\]] $ /six) { } |
|
368
|
0 |
0 |
unless (defined $request->{'decoded_body'}) |
|
407
|
0 |
0 |
unless defined $code and $code =~ qr/^\d\d\d$/ |
|
410
|
0 |
0 |
unless ($message) |
|
412
|
0 |
0 |
if ($code eq '400') { } |
|
|
0 |
0 |
elsif ($code eq '404') { } |
|
455
|
0 |
0 |
unless defined $field_name and $field_name ne '' |
|
462
|
0 |
0 |
if ($request->{'field_list'}[$i]{'field'} eq $field_name) |
|
489
|
0 |
0 |
if $Web::DataService::DEBUG |
|
527
|
0 |
0 |
if $will_handle |
|
543
|
0 |
0 |
$will_handle ? : |
|
548
|
0 |
0 |
if ($offset > 0) { } |
|
|
0 |
0 |
elsif (defined $limit and $limit ne 'all') { } |
|
551
|
0 |
0 |
$limit eq 'all' ? : |
|
581
|
0 |
0 |
unless defined $arg and $arg eq '0' || $arg eq '1' || $arg eq '2' |
|
584
|
0 |
0 |
if ($arg eq '2') { } |
|
|
0 |
0 |
elsif ($arg eq '1') { } |
|
|
0 |
0 |
elsif ($arg eq '0') { } |
|
610
|
0 |
0 |
$_[0]{'display_counts'} ? : |
|
623
|
0 |
0 |
if ($request->{'display_counts'}) |
|
657
|
0 |
0 |
if defined $m and $m ne '' |
|
670
|
0 |
0 |
unless ref $request->{'warnings'} eq 'ARRAY' |
|
679
|
0 |
0 |
unless ref $self->{'cautions'} eq 'ARRAY' |
|
688
|
0 |
0 |
if ref $self->{'cautions'} eq 'ARRAY' |
|
697
|
0 |
0 |
unless ref $self->{'errors'} eq 'ARRAY' |
|
706
|
0 |
0 |
if ref $self->{'errors'} eq 'ARRAY' |
|
766
|
0 |
0 |
if $ds->{'special'}{'datainfo'} |
|
767
|
0 |
0 |
if $ds->{'special'}{'linebreak'} |
|
768
|
0 |
0 |
if $ds->{'special'}{'count'} |
|
769
|
0 |
0 |
if $ds->{'special'}{'header'} |
|
770
|
0 |
0 |
if $ds->{'special'}{'save'} |
|
781
|
0 |
0 |
unless defined $request->{'clean_params'}{$p} |
|
782
|
0 |
0 |
if $skip{$p} |
|
793
|
0 |
0 |
if (ref $v and $v->can('regenerate')) |
|
833
|
0 |
0 |
unless defined $request->{'result_count'} |
|
838
|
0 |
0 |
defined $request->{'result_offset'} && $request->{'result_offset'} > 0 ? : |
|
845
|
0 |
0 |
if (defined $request->{'result_limit'} and $request->{'result_limit'} ne 'all' and $window_start + $request->{'result_limit'} < $window_end) |
|
885
|
0 |
0 |
$_[0]{'output_linebreak'} eq 'lf' ? : |
|
|
0 |
0 |
$_[0]{'output_linebreak'} eq 'cr' ? : |
|
913
|
0 |
0 |
if ref $request->{'dbh'} |
|
953
|
0 |
0 |
unless ref $summary eq 'HASH' |
|
968
|
0 |
0 |
unless defined $record |
|
970
|
0 |
0 |
unless ref $record and &reftype($record) eq 'HASH' |
|
987
|
0 |
0 |
unless @_ |
|
991
|
0 |
0 |
if (scalar @_ == 1 and ref $_[0] and &reftype($_[0]) eq 'ARRAY') |
|
1003
|
0 |
0 |
unless defined $item |
|
1004
|
0 |
0 |
unless ref $item and &reftype($item) eq 'ARRAY' || &reftype($item) eq 'HASH' |
|
1007
|
0 |
0 |
if (&reftype($item) eq 'ARRAY') { } |
|
1032
|
0 |
0 |
unless defined $data |
|
1034
|
0 |
0 |
if ref $data and &reftype($data) ne 'SCALAR' |
|
1037
|
0 |
0 |
ref $data ? : |
|
1052
|
0 |
0 |
if (ref $_[0] eq 'ARRAY') { } |
|
1074
|
0 |
0 |
unless defined $sth |
|
1076
|
0 |
0 |
unless ref $sth and $sth->can('fetchrow_hashref') |
|
1093
|
0 |
0 |
unless ref $request->{'main_result'} eq 'ARRAY' |
|
1094
|
0 |
0 |
unless @_ |
|
1096
|
0 |
0 |
unless ref $_[0] and &reftype($_[0]) eq 'HASH' |
|
1127
|
0 |
0 |
if $record |
|
1157
|
0 |
0 |
unless $request->{'ds'}{'block'}{$block_name} |
|
1161
|
0 |
0 |
unless (exists $request->{'block_field_list'}{$block_name}) |