| blib/lib/XAO/Web.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % | 
| condition | 21 | 75 | 28.0 | 
| line | !l | l&&!r | l&&r | condition | 
|---|---|---|---|---|
| 142 | 0 | 84 | 84 | @$patharr and not length $patharr->[0] | 
| 170 | 0 | 0 | 0 | $od->{'xaoweb'} and ref $od->{'xaoweb'} eq "HASH" | 
| 349 | 0 | 0 | 0 | $pd and $pd->{'type'} eq "xaoweb" | 
| 0 | 0 | 0 | $pd and $pd->{'type'} eq "xaoweb" and $pd->{'objname'} ne "Default" | |
| 396 | 0 | 0 | 0 | $mod_perl::VERSION and $mod_perl::VERSION >= "1.99" | 
| 592 | 0 | 0 | 82 | defined $CGI::VERSION and $CGI::VERSION >= "2.8" | 
| 597 | 18 | 0 | 0 | $pinfo and $uri =~ /^(.*)\Q$pinfo\E$/ | 
| 736 | 81 | 0 | 0 | &XAO::Utils::get_debug() and not $args->{'quieter'} | 
| line | l | !l | condition | 
|---|---|---|---|
| 169 | 3 | 0 | $od->{'type'} || 'xaoweb' | 
| 344 | 0 | 0 | $self->clipboard->get('/internal_error') || {} | 
| 346 | 0 | 0 | $edata->{'display_path'} || '/internal-error/index.html' | 
| 353 | 0 | 0 | $edata->{'code'} ||= "UNKNOWN" | 
| 594 | 64 | 18 | $cgi->path_info || '' | 
| 595 | 64 | 18 | $cgi->request_uri || '' | 
| 711 | 2 | 80 | $pd->{'urlstyle'} || 'files' | 
| 799 | 8 | 0 | $charset || 'utf8' | 
| 913 | 0 | 0 | $self->config->get('path_deny_table') || {} | 
| line | l | !l&&r | !l&&!r | condition | 
|---|---|---|---|---|
| 157 | 0 | 0 | 245 | $table->{$dir} || $$table{'/' . $dir} || $$table{$dir . '/'} || $$table{'/' . $dir . '/'} | 
| 278 | 630 | 0 | 0 | $self->{'siteconfig'} || 'XAO::E::Web'->throw('config - no configuration object') | 
| 352 | 0 | 0 | 0 | $edata->{'message'} ||= "$e" | 
| 354 | 0 | 0 | 0 | $edata->{'path'} ||= $args->{'path'} | 
| 355 | 0 | 0 | 0 | $edata->{'pagedesc'} ||= $self->clipboard->get("pagedesc") | 
| 552 | 82 | 0 | 0 | $args->{'path'} || 'XAO::E::Web'->throw(q[process - no 'path' given]) | 
| 615 | 0 | 0 | 82 | $active_url =~ /cgi-bin/ or $active_url =~ /xao-[\w-]+\.pl/ | 
| 676 | 0 | 0 | 82 | $apache || $ENV{'MOD_PERL'} | 
| 830 | 38 | 0 | 0 | $args->{'sitename'} || 'XAO::E::Web'->throw('new - required parameter missing (sitename)') | 
| 856 | 0 | 38 | 0 | $args->{'init_args'} || () | 
| 897 | 0 | 38 | 0 | ref $proto || $proto |