| line |
true |
false |
branch |
|
28
|
2 |
0 |
unless ($PAB3::CGI::VERSION) |
|
44
|
0 |
0 |
if ($_[0] and $pkg eq 'PAB3' and $_[0] eq 'import') |
|
49
|
0 |
0 |
if ($_ eq ':const' or $_ eq ':default') |
|
55
|
0 |
0 |
if ($_ eq ':default') |
|
65
|
0 |
0 |
if ($0 =~ m[^(.+/)(.+?)$]) { } |
|
78
|
0 |
1 |
unless my $this = &_new($class, @_) |
|
80
|
0 |
1 |
defined $arg{'die'} ? : |
|
81
|
0 |
1 |
defined $arg{'warn'} ? : |
|
92
|
0 |
0 |
if ($this) |
|
93
|
0 |
0 |
if $$this{'die'} |
|
94
|
0 |
0 |
if $$this{'warn'} |
|
100
|
0 |
2 |
unless &_parse_template(@_) |
|
109
|
0 |
0 |
if (not $cache and $$this{'auto_cache'}) |
|
114
|
0 |
0 |
if ($cache) |
|
116
|
0 |
0 |
if (-f $tpl) |
|
118
|
0 |
0 |
if (-f $cac) |
|
120
|
0 |
0 |
if ($ts[9] == $cs[9]) |
|
127
|
0 |
0 |
if ($$this{'logger'}) |
|
131
|
0 |
0 |
if ($rv == 3) { } |
|
|
0 |
0 |
elsif ($rv == 1) { } |
|
|
0 |
0 |
elsif ($rv == 2) { } |
|
|
0 |
0 |
elsif (not $rv) { } |
|
132
|
0 |
0 |
if ($$this{'logger'}) |
|
136
|
0 |
0 |
unless (open $fh, '> ' . $cac) |
|
152
|
0 |
0 |
if ($$this{'logger'}) |
|
171
|
0 |
0 |
if (ref $fieldmap eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $fieldmap eq 'HASH') { } |
|
185
|
0 |
0 |
if ($hmc = $$this{'hashmap_cache'}) |
|
188
|
0 |
0 |
unless (%$fm) |
|
189
|
0 |
0 |
unless ($fmc) |
|
195
|
0 |
0 |
unless &_add_hashmap($this, $loopid, $record, $fieldmap) |
|
197
|
0 |
0 |
if ($hmc and not $fmc) |
|
205
|
0 |
0 |
if ref $_[0] eq 'PAB3' |
|
211
|
0 |
0 |
if ($package eq $fid) |
|
216
|
0 |
0 |
if $this and $$this{'logger'} |
|
217
|
0 |
0 |
if (not $cache or $cache != $fs[9]) |
|
218
|
0 |
0 |
if ($cache) |
|
219
|
0 |
0 |
if ($logger) |
|
224
|
0 |
0 |
if ($logger) |
|
227
|
0 |
0 |
unless open $fh, $file |
|
234
|
0 |
0 |
if ($logger) |
|
239
|
0 |
0 |
ref $args eq 'ARRAY' ? : |
|
247
|
0 |
0 |
if ref $_[0] eq 'PAB3' |
|
253
|
0 |
0 |
if ($package eq $fid) |
|
258
|
0 |
0 |
if $this and $$this{'logger'} |
|
259
|
0 |
0 |
if (not $cache or $cache != $fs[9]) |
|
260
|
0 |
0 |
if ($cache) |
|
261
|
0 |
0 |
if ($logger) |
|
266
|
0 |
0 |
if ($logger) |
|
269
|
0 |
0 |
unless open $fh, $file |
|
277
|
0 |
0 |
if ($logger) |
|
282
|
0 |
0 |
ref $args eq 'ARRAY' ? : |
|
290
|
0 |
0 |
if (ref $content) |
|
294
|
0 |
0 |
if ($content =~ s/(\n__DATA__\n.*$)//s) { } |
|
300
|
0 |
0 |
if ($content =~ s/(\n__END__\n.*$)//s) { } |
|
321
|
0 |
0 |
if ($GLOBAL::DEBUG) |
|
322
|
0 |
0 |
$PAB3::CGI::VERSION ? : |
|
333
|
0 |
0 |
if ($@) |
|
334
|
0 |
0 |
unless ($GLOBAL::DEBUG) |
|
335
|
0 |
0 |
$PAB3::CGI::VERSION ? : |
|
348
|
0 |
0 |
if (defined $t) |
|
364
|
0 |
0 |
if ($hashname =~ /HASH\(0x\w+\)/) { } |
|
371
|
0 |
0 |
if ($$ref_table{$r_hash} and $$ref_table{$r_hash} <= $level) |
|
380
|
0 |
0 |
if ($r and index($$r_hash{$k}, 'ARRAY(') >= 0) { } |
|
|
0 |
0 |
elsif ($r and index($$r_hash{$k}, 'HASH(') >= 0) { } |
|
387
|
0 |
0 |
!defined($$r_hash{$k}) ? : |
|
399
|
0 |
0 |
if ($arrayname =~ /ARRAY\(0x\w+\)/) { } |
|
406
|
0 |
0 |
if ($$ref_table{$r_array} and $$ref_table{$r_array} <= $level) |
|
416
|
0 |
0 |
if ($r and index($v, 'ARRAY(') >= 0) { } |
|
|
0 |
0 |
elsif ($r and index($v, 'HASH(') >= 0) { } |
|
423
|
0 |
0 |
!defined($v) ? : |
|
435
|
0 |
0 |
if ($r and index($v, 'ARRAY(') >= 0) { } |
|
|
0 |
0 |
elsif ($r and index($v, 'HASH(') >= 0) { } |
|
|
0 |
0 |
elsif ($r and index($v, 'SCALAR(') >= 0) { } |
|
442
|
0 |
0 |
defined $$v ? : |
|
445
|
0 |
0 |
defined $v ? : |