| line |
true |
false |
branch |
|
83
|
0 |
0 |
unless ($self->apache_req or $self->cgi_object) |
|
99
|
0 |
0 |
unless $self->ah->args_method eq 'CGI' |
|
102
|
0 |
0 |
if (defined $_[1]) { } |
|
125
|
0 |
0 |
if ($self->is_subrequest) { } |
|
149
|
0 |
0 |
if $local_r eq $r |
|
156
|
0 |
0 |
defined $retval && $retval ne 200 ? : |
|
167
|
0 |
0 |
if (isa_mason_exception($err, 'TopLevelNotFound')) { } |
|
170
|
0 |
0 |
if ($self->error_format eq 'html') |
|
266
|
0 |
0 |
if $STARTED++ |
|
268
|
0 |
0 |
if (my $args_method = $pack->_get_string_param('MasonArgsMethod')) |
|
270
|
0 |
0 |
if ($args_method eq 'CGI') { } |
|
|
0 |
0 |
elsif ($args_method eq 'mod_perl') { } |
|
272
|
0 |
0 |
unless defined 'CGI'->VERSION |
|
274
|
0 |
0 |
if ('CGI'->VERSION < 3.08) |
|
277
|
0 |
0 |
if $@ |
|
281
|
0 |
0 |
unless defined $APACHE2_REQUEST_CLASS->VERSION |
|
321
|
0 |
0 |
if exists $AH_BY_CONFIG{$key} |
|
327
|
0 |
0 |
if (exists $p{'comp_root'}) |
|
328
|
0 |
0 |
if (@{$p{'comp_root'};} == 1 and not $p{'comp_root'}[0] =~ /=>/) { } |
|
334
|
0 |
0 |
unless defined $$root[1] |
|
347
|
0 |
0 |
if $key |
|
358
|
0 |
0 |
$1 ? : |
|
374
|
0 |
0 |
$r ? : |
|
381
|
0 |
0 |
unless (my $calm = $studly) =~ s/^Mason// |
|
387
|
0 |
0 |
unless %candidates |
|
406
|
0 |
0 |
unless my $spec = $self->allowed_params($candidates || {})->{$key} |
|
410
|
0 |
0 |
unless my $type = $$spec{'parse'} || ($$spec{'type'} & 2 ? 'list' : ($$spec{'type'} & 1 ? 'string' : ($$spec{'type'} & 8 ? 'code' : undef))) |
|
439
|
0 |
0 |
unless $val |
|
443
|
0 |
0 |
if $@ |
|
453
|
0 |
0 |
if (@val == 1 and not defined $val[0]) |
|
465
|
0 |
0 |
if (@val == 1 and not defined $val[0]) |
|
474
|
0 |
0 |
unless defined $key and defined $val |
|
489
|
0 |
0 |
if (wantarray or not $config) { } |
|
491
|
0 |
0 |
if ($config) { } |
|
497
|
0 |
0 |
$r ? : |
|
503
|
0 |
0 |
exists $$config{$p} ? : |
|
506
|
0 |
0 |
if @val > 1 and not wantarray |
|
509
|
0 |
0 |
wantarray ? : |
|
518
|
0 |
0 |
if @_ % 2 |
|
522
|
0 |
0 |
unless exists $params{'request'} |
|
527
|
0 |
0 |
if (exists $$allowed_params{'comp_root'} and my $req = $r) |
|
533
|
0 |
0 |
if (exists $$allowed_params{'data_dir'} and not exists $params{'data_dir'}) |
|
536
|
0 |
0 |
if (UNIVERSAL::can($APACHE2_SERVERUTIL_CLASS, 'server_root')) { } |
|
543
|
0 |
0 |
unless 'File::Spec'->file_name_is_absolute($def) |
|
547
|
0 |
0 |
if @levels <= 3 |
|
552
|
0 |
0 |
if (exists $params{'error_mode'} and $params{'error_mode'} eq 'fatal') { } |
|
560
|
0 |
0 |
if (exists $$allowed_params{'allow_globals'}) |
|
561
|
0 |
0 |
if ($params{'allow_globals'}) { } |
|
571
|
0 |
0 |
if ($@ and isa_mason_exception($@, 'Params') and $@->message =~ /comp_root/) |
|
578
|
0 |
0 |
unless ($self->interp->resolver->can('apache_request_to_comp_path')) |
|
588
|
0 |
0 |
if (not $> || $< and $self->interp->files_written) |
|
590
|
0 |
0 |
unless chown $self->get_uid_gid, $self->interp->files_written |
|
611
|
0 |
0 |
$user ? : |
|
612
|
0 |
0 |
$group ? : |
|
620
|
0 |
0 |
if ($self->args_method eq 'mod_perl') { } |
|
621
|
0 |
0 |
unless (defined $APACHE2_REQUEST_CLASS->VERSION) |
|
628
|
0 |
0 |
unless (defined 'CGI'->VERSION) |
|
638
|
0 |
0 |
if (defined $APACHE2_STATUS_CLASS->VERSION) |
|
642
|
0 |
0 |
unless defined $r |
|
644
|
0 |
0 |
if ($r->path_info and $r->path_info =~ /expire_code_cache=(.*)/) |
|
664
|
0 |
0 |
if $interp->compiler->can('add_allowed_globals') |
|
755
|
0 |
0 |
unless ref $req |
|
770
|
0 |
0 |
if $fs_type eq 'dir' and $self->decline_dirs |
|
776
|
0 |
0 |
unless ($comp_path) |
|
782
|
0 |
0 |
unless $fs_type eq 'file' |
|
807
|
0 |
0 |
if (my $err = $@) |
|
810
|
0 |
0 |
if (isa_mason_exception($@, 'TopLevelNotFound')) |
|
814
|
0 |
0 |
isa_mason_exception($err, 'Decline') ? : |
|
|
0 |
0 |
isa_mason_exception($err, 'Abort') ? : |
|
817
|
0 |
0 |
if defined $retval and $retval eq 200 |
|
818
|
0 |
0 |
unless ($retval) |
|
819
|
0 |
0 |
unless ($r->notes('mason-sent-headers')) |
|
826
|
0 |
0 |
unless $$self{'has_custom_out_method'} |
|
828
|
0 |
0 |
if $m->can('cgi_object') and $cgi_object |
|
845
|
0 |
0 |
if (defined $filter and lc $filter eq 'on') { } |
|
847
|
0 |
0 |
unless 'Apache::Filter'->VERSION >= 1.021 |
|
861
|
0 |
0 |
$self->args_method eq 'mod_perl' ? : |
|
881
|
0 |
0 |
-f _ ? : |
|
|
0 |
0 |
$is_dir ? : |
|
892
|
0 |
0 |
if ($self->args_method eq 'mod_perl') { } |
|
912
|
0 |
0 |
if $r->method eq 'GET' and not scalar $r->args |
|
927
|
0 |
0 |
@values == 1 ? : |
|
939
|
0 |
0 |
$r->method eq 'HEAD' ? : |
|
960
|
0 |
0 |
if ($r->method eq 'POST') |