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 |