| line |
true |
false |
branch |
| 159 |
10 |
6 |
if ref $package |
| 164 |
0 |
16 |
unless ($filename = eval {
|
| 165 |
0 |
0 |
$ModPerl2 ? : |
| 166 |
0 |
0 |
if ($filename = eval {
|
| 176 |
0 |
16 |
if not -e $filename or -d _ |
| 191 |
16 |
0 |
unless $$self{'errs'} |
| 196 |
1 |
15 |
if $$self{'dbg'} |
| 199 |
0 |
16 |
if ($$self{'errs'}) |
| 207 |
0 |
16 |
if ($status != 500 and defined $$response{'Status'} and $$response{'Status'} != 302) |
| 227 |
16 |
0 |
if ($$self{'filter'} or $status == 500 or $r->isa('Apache::ASP::CGI')) |
| 231 |
16 |
0 |
if ($status eq '200') |
| 239 |
0 |
0 |
if ref $_[0] or $_[0] eq 'Apache::ASP' |
| 245 |
0 |
18 |
unless $r |
| 251 |
0 |
18 |
if ($QuickStartTime) { } |
| 264 |
0 |
18 |
unless chdir $dirname |
| 279 |
0 |
18 |
$^O eq 'MSWin32' ? : |
| 303 |
1 |
17 |
if ($$self{'dbg'}) { } |
| 304 |
0 |
1 |
if ($$self{'dbg'} < 0) { } |
| 318 |
12 |
6 |
unless ($SrandPid and $SrandPid == $$) |
| 319 |
1 |
11 |
if $$self{'dbg'} |
| 326 |
0 |
18 |
if ($filter_config) |
| 327 |
0 |
0 |
if ($self->LoadModules('Filter', 'Apache::Filter')) { } |
| 329 |
0 |
0 |
if ($r->can('filter_register')) |
| 333 |
0 |
0 |
if ($r->can('filter_input') and $r->can('get_handlers')) |
| 341 |
0 |
0 |
if (not $r->can('get_handlers')) { } |
| 353 |
0 |
18 |
if ($compressgzip_config) |
| 354 |
0 |
0 |
if ($self->LoadModule('Gzip', 'Compress::Zlib')) |
| 361 |
7 |
11 |
if (not $$self{'global'} =~ /^(\.|\.\.)$/) |
| 362 |
0 |
7 |
unless -d $$self{'global'} |
| 367 |
0 |
18 |
if ($filename =~ m[^((/|[a-zA-Z]:).*[/\\])[^/\\]+?$]) { } |
| 398 |
0 |
18 |
if (&config($self, 'UniquePackages')) { } |
| 417 |
7 |
11 |
unless (&get_dir_config($dir_config, 'NoState')) |
| 430 |
17 |
18 |
unless $$self{'destroy'} |
| 431 |
1 |
17 |
if $$self{'dbg'} |
| 435 |
0 |
0 |
if $$self{'dbg'} |
| 437 |
0 |
0 |
if $@ |
| 442 |
17 |
1 |
if tied *RESPONSE |
| 446 |
0 |
18 |
if tied *STDIN |
| 450 |
7 |
11 |
if ($$self{'Session'}) |
| 451 |
7 |
0 |
if (eval {
|
| 469 |
33 |
21 |
unless defined $$self{$_} |
| 471 |
0 |
21 |
unless $tied |
| 476 |
1 |
17 |
if (my $caches = $$self{'Caches'}) |
| 479 |
1 |
0 |
if ($$self{'cache_size'} =~ /^([\d\.]+)(M|K|B)?$/) |
| 481 |
0 |
1 |
if ($unit eq 'M') { } |
| |
1 |
0 |
elsif ($unit eq 'K') { } |
| 486 |
1 |
0 |
if ($size ne $$self{'cache_size'}) |
| 487 |
0 |
1 |
if $$self{'dbg'} |
| 493 |
1 |
0 |
if ($$tied{'writes'} and $tied->Size > $$self{'cache_size'}) { } |
| 494 |
0 |
1 |
if $$self{'dbg'} |
| 497 |
0 |
0 |
if $$self{'dbg'} |
| 504 |
18 |
0 |
if $$self{'Request'} |
| 505 |
18 |
0 |
if $$self{'Server'} |
| 506 |
18 |
0 |
if $$self{'Response'} |
| 515 |
0 |
18 |
if ($ModPerl2) { } |
| 532 |
0 |
12 |
unless ($share_path =~ /$AbsoluteFileMatch/) |
| 546 |
0 |
12 |
unless -d $share_path |
| 561 |
0 |
12 |
unless -d $lib_path |
| 576 |
0 |
45 |
unless $file |
| 580 |
18 |
27 |
unless ($$self{'compile_checksum'}) |
| 582 |
176 |
22 |
unless &config($self, $_) |
| 592 |
18 |
27 |
$no_compile_checksum ? : |
| 595 |
0 |
45 |
if ($$self{'inode_names'}) |
| 598 |
0 |
0 |
unless ($inode_stat[0] or $inode_stat[1]) |
| 603 |
0 |
45 |
if (@inode_stat) { } |
| 607 |
0 |
45 |
if ($abs_file) |
| 613 |
0 |
45 |
if ($file_name_length >= 35) { } |
| 636 |
0 |
36 |
unless $file |
| 638 |
4 |
32 |
if $$self{'dbg'} |
| 640 |
13 |
23 |
if (ref $file) { } |
| |
23 |
0 |
elsif (length $file < 1024 and not $file =~ /^GLOB/ and -e $file) { } |
| 641 |
13 |
0 |
if ($file =~ /SCALAR/) { } |
| |
0 |
0 |
elsif ($file =~ /GLOB/) { } |
| 649 |
4 |
19 |
if $$self{'dbg'} |
| 659 |
16 |
20 |
unless ($$self{'parse_config'}) |
| 668 |
6 |
10 |
if ($$self{'xml_subs_match'} = &config($self, 'XMLSubsMatch')) |
| 675 |
0 |
16 |
unless ($ScriptLanguages{$lang}) |
| 687 |
0 |
16 |
if ($@) |
| 694 |
30 |
6 |
if (&config($self, 'CgiDoSelf')) |
| 699 |
36 |
0 |
if ($$self{'pod_comments'}) |
| 705 |
0 |
36 |
if ($$self{'compile_includes'} and $$self{'GlobalASA'}{'exists'}) |
| 733 |
8 |
0 |
if (not $$self{'compile_includes'}) |
| 736 |
2 |
6 |
unless ($line1_added) |
| 738 |
2 |
0 |
$file_exists ? : |
| 741 |
6 |
2 |
if ($head_data =~ s/.*\n\#line (\d+) ([^\n]+)\n(%>)?//s) |
| 744 |
4 |
2 |
$3 ? : |
| 753 |
0 |
8 |
if ($code_block < 0) |
| 764 |
0 |
8 |
if ($has_args) |
| 771 |
0 |
8 |
unless (defined $include) |
| 775 |
0 |
8 |
if ($$self{'dbg'}) |
| 776 |
0 |
0 |
if ($include ne $file) |
| 777 |
0 |
0 |
if $$self{'dbg'} |
| 782 |
0 |
8 |
if (defined $args or $$self{'compile_includes'}) { } |
| 788 |
0 |
0 |
if $$self{'dbg'} |
| 793 |
0 |
0 |
unless ($self->CompileInclude($include)) |
| 797 |
0 |
8 |
if $$self{'dbg'} |
| 800 |
0 |
8 |
if ($includes{$include}++ > 100) |
| 811 |
8 |
0 |
if ($file_exists and $parse_file) |
| 813 |
0 |
8 |
if $$self{'dbg'} |
| 820 |
5 |
3 |
if ($text =~ /\n/s) { } |
| 821 |
3 |
2 |
$code_block ? : |
| 822 |
3 |
2 |
$code_block ? : |
| 823 |
5 |
0 |
$file_context ? : |
| 842 |
36 |
0 |
if (not $$self{'compile_includes'}) |
| 844 |
2 |
34 |
if (%includes and $$self{'pod_comments'}) |
| 847 |
36 |
0 |
if ($$self{'GlobalASA'}{'exists'}) |
| 863 |
35 |
1 |
if ($script) { } |
| 864 |
26 |
9 |
$$self{'use_strict'} ? : |
| 865 |
22 |
13 |
$file_exists ? : |
| 887 |
8 |
30 |
if ($$self{'xml_subs_match'}) |
| 889 |
0 |
8 |
if $$self{'dbg'} |
| 900 |
1 |
37 |
if $check_static_file and not $$data =~ /<%.*?%>/s |
| 910 |
13 |
71 |
$perl =~ /^\s*=(.*)$/so ? : |
| 916 |
30 |
54 |
if ($text) |
| 921 |
12 |
18 |
if ($last_perl_block) |
| 928 |
84 |
0 |
if ($perl) |
| 929 |
13 |
71 |
if (not $perl_block) { } |
| 934 |
43 |
28 |
if (@out) |
| 951 |
43 |
28 |
if (not $perl =~ /\n\s*$/so) |
| 952 |
0 |
43 |
if ($perl =~ /\#[^\n]*$/so) |
| 959 |
34 |
37 |
unless ($perl eq ';;;') |
| 975 |
8 |
0 |
unless ($$self{'xslt'}) |
| 983 |
0 |
0 |
if $args |
| 993 |
8 |
2 |
unless $data =~ s[ |
| 996 |
0 |
2 |
if $args |
| 1001 |
2 |
0 |
if ($text =~ /<%|<($$self{'xml_subs_match'})/) { } |
| 1038 |
8 |
0 |
if (defined $data) |
| 1053 |
10 |
2 |
if (defined $data) |
| 1069 |
0 |
0 |
if ($$self{'xml_subs_strict'}) { } |
| |
0 |
0 |
elsif ($$self{'xml_subs_perl_args'}) { } |
| 1089 |
0 |
0 |
if length $1 |
| 1096 |
0 |
0 |
if length $value |
| 1126 |
0 |
47 |
unless defined $file |
| 1129 |
0 |
47 |
if ($file =~ s/^Share:://) |
| 1134 |
0 |
47 |
if ($share_search) |
| 1143 |
24 |
23 |
if (my $path = $$self{'search_dirs_cache'}{$cache_key}) |
| 1149 |
0 |
23 |
if ($file =~ m[^/|^[a-zA-Z]:]) |
| 1150 |
0 |
0 |
if (-e $file and not -d _) { } |
| 1160 |
22 |
2 |
if (-e $path and not -d _) |
| 1177 |
0 |
0 |
unless ($$self{'register_includes'}{$include}) |
| 1182 |
0 |
0 |
$code ? : |
| 1183 |
0 |
0 |
if $$self{'dbg'} |
| 1196 |
0 |
41 |
if ($include =~ /^Share::/) |
| 1201 |
13 |
28 |
if (ref $include) { } |
| 1206 |
16 |
12 |
if ($is_base_script) { } |
| 1215 |
1 |
11 |
unless defined $file |
| 1221 |
0 |
27 |
if ($$self{'no_cache'}) |
| 1231 |
0 |
27 |
if ($compiled and not $$self{'stat_scripts'}) |
| 1232 |
0 |
0 |
if $$self{'dbg'} |
| 1238 |
4 |
23 |
if ($compiled and $$compiled{'mtime'} > $mtime) |
| 1243 |
0 |
4 |
if (my $includes = $Includes{$include}) |
| 1247 |
0 |
0 |
if (@stat) { } |
| 1248 |
0 |
0 |
if ($stat[9] >= $v) |
| 1249 |
0 |
0 |
if $$self{'dbg'} |
| 1254 |
0 |
0 |
if $$self{'dbg'} |
| 1261 |
4 |
0 |
if (not $includes_changed) { } |
| 1264 |
0 |
0 |
if $$self{'dbg'} |
| 1279 |
35 |
1 |
if ($$parse_data{'is_perl'}) { } |
| |
1 |
0 |
elsif ($$parse_data{'is_raw'}) { } |
| 1284 |
35 |
0 |
unless ($no_cache) |
| 1286 |
3 |
32 |
if ($no_cache) |
| 1291 |
34 |
1 |
if ($sub) |
| 1310 |
20 |
16 |
if ($data and $subid and not $no_cache) |
| 1321 |
23 |
0 |
if ($code) |
| 1322 |
5 |
18 |
if $$self{'dbg'} |
| 1332 |
0 |
43 |
unless open READFILE, $file |
| 1346 |
0 |
18 |
if ($file =~ m[^/] or $file =~ /^.:/) { } |
| 1350 |
0 |
18 |
if ($dir =~ m[^/] or $dir =~ /^.:/) { } |
| 1363 |
0 |
35 |
unless ref $script |
| 1364 |
22 |
13 |
if $subid |
| 1365 |
4 |
31 |
if $$self{'dbg'} |
| 1383 |
26 |
9 |
if ($$self{'use_strict'}) { } |
| 1398 |
1 |
34 |
if ($@) { } |
| 1400 |
1 |
0 |
if $subid |
| 1403 |
21 |
13 |
if ($subid) { } |
| 1404 |
0 |
21 |
if (&config($self, 'RegisterIncludes')) |
| 1419 |
3 |
32 |
$$script =~ /(^|\n)\s*sub\s+([^\s\{]+)\s*\{/ ? : |
| 1425 |
18 |
34 |
unless ($$self{'response_tied'}) |
| 1447 |
0 |
16 |
if $$self{'stat_inc_match'} or $$self{'stat_inc'} |
| 1450 |
16 |
0 |
if (not $$self{'errs'}) |
| 1452 |
16 |
0 |
unless ($compile_file) |
| 1456 |
0 |
16 |
unless ($compile_file) |
| 1464 |
0 |
16 |
unless ($compiled) |
| 1478 |
16 |
0 |
if $$global_asa{'exists'} |
| 1479 |
15 |
0 |
unless $$self{'errs'} |
| 1481 |
16 |
0 |
unless $$self{'errs'} |
| 1483 |
16 |
0 |
unless $$self{'errs'} |
| 1486 |
0 |
16 |
if ($@) |
| 1498 |
0 |
52 |
unless $code |
| 1499 |
4 |
48 |
if $$self{'dbg'} |
| 1505 |
0 |
52 |
if (my $ref = ref $code) { } |
| 1506 |
0 |
0 |
if ($ref eq 'CODE') { } |
| |
0 |
0 |
elsif ($ref eq 'SCALAR') { } |
| 1516 |
15 |
37 |
$code =~ /::/ ? : |
| 1520 |
0 |
46 |
if ($@) |
| 1529 |
0 |
48 |
unless $cache_name |
| 1530 |
0 |
48 |
unless grep(($cache_name eq $_), ('XSLT', 'Response')) |
| 1531 |
0 |
48 |
unless defined $key |
| 1534 |
47 |
1 |
if (defined $cache_dbm) { } |
| 1535 |
0 |
47 |
if $$self{'dbg'} |
| 1542 |
0 |
1 |
if $$self{'dbg'} |
| 1546 |
0 |
1 |
if $$self{'dbg'} |
| 1549 |
48 |
0 |
ref $key && $key =~ /SCALAR/ ? : |
| 1556 |
17 |
31 |
if (defined $value) { } |
| 1558 |
6 |
11 |
if (defined $expires and $expires =~ /^\-?\d+$/) |
| 1562 |
0 |
17 |
if $$self{'dbg'} |
| 1568 |
0 |
31 |
if ($no_check_meta) { } |
| 1569 |
0 |
0 |
if $$self{'dbg'} |
| 1575 |
8 |
23 |
if (not $meta) { } |
| 1580 |
1 |
22 |
if (defined $expires and $expires =~ /^\-?\d+$/ and $expires != $$meta{'Expires'}) |
| 1591 |
7 |
24 |
if (defined $last_modified) |
| 1592 |
2 |
5 |
if (not $last_modified =~ /^\d+$/) |
| 1595 |
0 |
2 |
if $$self{'dbg'} |
| 1597 |
0 |
7 |
if ($last_modified < 0) |
| 1598 |
0 |
0 |
if $$self{'dbg'} |
| 1604 |
8 |
23 |
if ($$meta{'Timeout'}) |
| 1607 |
0 |
8 |
if $$self{'dbg'} |
| 1611 |
0 |
31 |
if $$self{'dbg'} |
| 1613 |
8 |
23 |
if ($new) { } |
| |
0 |
23 |
elsif (defined $$meta{'ServerID'} and $$ ne $ServerPID and $$meta{'ServerID'} ne $ServerID) { } |
| |
4 |
19 |
elsif ($$meta{'Timeout'} and $$meta{'Timeout'} <= time) { } |
| |
2 |
17 |
elsif (defined $last_modified and $last_modified >= $$meta{'Creation'}) { } |
| 1614 |
0 |
8 |
if $$self{'dbg'} |
| 1621 |
0 |
0 |
if $$self{'dbg'} |
| 1625 |
0 |
4 |
if $$self{'dbg'} |
| 1629 |
0 |
2 |
if $$self{'dbg'} |
| 1633 |
0 |
17 |
if $$self{'dbg'} |
| 1641 |
0 |
48 |
if ($@) |
| 1657 |
0 |
0 |
if ($cache) |
| 1658 |
0 |
0 |
if (my $data = $self->Cache('XSLT', \$cache_data, undef, undef, undef, 1)) |
| 1663 |
0 |
0 |
unless ref $xsl_data |
| 1669 |
0 |
0 |
unless (($xslt_parser_lib) = grep(/^$xslt_parser/, @parsers)) |
| 1673 |
0 |
0 |
if $$asp{'dbg'} |
| 1675 |
0 |
0 |
if $@ |
| 1678 |
0 |
0 |
unless length $$xsl_data and length $$xml_data |
| 1680 |
0 |
0 |
if ($xslt_parser eq 'XML::XSLT') { } |
| |
0 |
0 |
elsif ($xslt_parser eq 'XML::Sablotron') { } |
| |
0 |
0 |
elsif ($xslt_parser eq 'XML::LibXSLT') { } |
| 1687 |
0 |
0 |
if ($error) |
| 1700 |
0 |
0 |
if ($cache) |
| 1711 |
0 |
0 |
if ($$self{'r'}) { } |
| 1727 |
0 |
1 |
if (ref $eval) { } |
| 1768 |
0 |
0 |
if ($ref = ref $arg) { } |
| 1769 |
0 |
0 |
if ($arg =~ /HASH/) { } |
| |
0 |
0 |
elsif ($arg =~ /ARRAY/) { } |
| |
0 |
0 |
elsif ($arg =~ /SCALAR/) { } |
| |
0 |
0 |
elsif ($arg =~ /CODE/) { } |
| 1772 |
0 |
0 |
defined $$arg{$key} ? : |
| 1781 |
0 |
0 |
if ($@) { } |
| 1798 |
0 |
0 |
if ($$self{'dbg'} >= 3) |
| 1800 |
0 |
0 |
if (eval {
|
| 1844 |
0 |
0 |
if ($@) |
| 1851 |
0 |
0 |
if ($$self{'mail_host'} = &config($self, 'MailHost')) |
| 1852 |
0 |
0 |
unless ($NetConfig{'smtp_hosts'} and ($NetConfig{'smtp_hosts'}[0] || '') eq $$self{'mail_host'}) |
| 1858 |
0 |
0 |
unless ($$mail{'Test'}) |
| 1860 |
0 |
0 |
unless $$mail{$_} |
| 1866 |
0 |
0 |
if (not defined $args{'Debug'} and defined $$mail{'Debug'}) |
| 1870 |
0 |
0 |
if (not defined $args{'Debug'}) |
| 1872 |
0 |
0 |
if ((&config($self, 'Debug') || 0) < 0) |
| 1880 |
0 |
0 |
if ($$mail{'Test'}) |
| 1885 |
0 |
0 |
if (not $smtp) { } |
| 1893 |
0 |
0 |
unless $$mail{$receivers} |
| 1894 |
0 |
0 |
ref $$mail{$receivers} ? : |
| 1901 |
0 |
0 |
unless $smtp->mail($$mail{'From'}) |
| 1904 |
0 |
0 |
if ($$mail{'Test'}) |
| 1908 |
0 |
0 |
unless $smtp->to(@to) |
| 1916 |
0 |
0 |
if ($$mail{'Content-Type'} and not $$mail{'MIME-Version'}) |
| 1922 |
0 |
0 |
unless $$mail{$_} |
| 1923 |
0 |
0 |
if $done{lc $_}++ |
| 1924 |
0 |
0 |
ref $$mail{$_} ? : |
| 1930 |
0 |
0 |
unless $smtp->data($data) |
| 1933 |
0 |
0 |
if $rv |
| 1943 |
0 |
0 |
if (defined $LoadedModules{$_}) |
| 1944 |
0 |
0 |
if ($LoadedModules{$_} == 0) |
| 1945 |
0 |
0 |
if ($LoadModuleErrors{$category}) { } |
| 1957 |
0 |
0 |
if ($@) { } |
| 1958 |
0 |
0 |
if ($LoadModuleErrors{$category}) { } |
| 1968 |
0 |
0 |
if $$self{'dbg'} |
| 2017 |
0 |
216 |
if (lc $rv eq 'off') |
| 2028 |
0 |
818 |
if (defined $value) { } |
| |
818 |
0 |
elsif (defined $key) { } |
| 2032 |
100 |
718 |
if (defined $rv) { } |
| 2033 |
0 |
100 |
if (lc $rv eq 'off') |
| 2038 |
160 |
558 |
if (defined $default) |