| line |
true |
false |
branch |
|
89
|
0 |
0 |
unless my $sub = $pack->can("run_$method") |
|
103
|
0 |
0 |
if (&catch(sub {
($pack, $root, $cgi, $file, $param) = $pack->prepare_dispatch($cgi, $config);
}
, \$error)) { } |
|
117
|
0 |
0 |
if (UNIVERSAL::isa($root_or_config, 'YATT::Toplevel::CGI::Config')) { } |
|
127
|
0 |
0 |
if ($rc) |
|
130
|
0 |
0 |
if ($i++ > $max) |
|
141
|
0 |
0 |
if ($rc and not is_normal_end($error)) |
|
150
|
1 |
0 |
if @_ |
|
156
|
0 |
1 |
if $config->{'cf_tmpl'} |
|
172
|
0 |
0 |
if (not $config->{'cf_registry'} and $config->{'cf_docs'}) { } |
|
|
0 |
0 |
elsif ($YATT::Toplevel::CGI::REDIRECT_STATUS) { } |
|
|
0 |
0 |
elsif ($YATT::Toplevel::CGI::PATH_INFO and $YATT::Toplevel::CGI::SCRIPT_FILENAME) { } |
|
195
|
0 |
0 |
unless ($loader) |
|
201
|
0 |
0 |
unless (chdir $rootdir) |
|
205
|
0 |
0 |
unless ($YATT::Toplevel::CGI::PATH_INFO) |
|
206
|
0 |
0 |
if ($YATT::Toplevel::CGI::PATH_TRANSLATED) |
|
208
|
0 |
0 |
if (index($YATT::Toplevel::CGI::PATH_TRANSLATED, $rootdir) == 0) |
|
214
|
0 |
0 |
if (my $sub = $cgi->can('charset')) |
|
238
|
0 |
2 |
if $name =~ /$PARAM_CONVENTION/ |
|
260
|
0 |
0 |
if (defined $file and -r $file) |
|
262
|
0 |
0 |
unless $ENV{'REDIRECT_STATUS'} == 200 |
|
263
|
0 |
0 |
unless $ENV{'PATH_TRANSLATED'} eq $file |
|
292
|
0 |
0 |
if ($YATT::Toplevel::CGI::CONFIG->{'cf_use_session'}) |
|
298
|
0 |
0 |
if (&catch(sub {
$found = ($renderer, $pkg, $widget) = $root->lookup_handler_to('render', @elpath);
}
, \my $error)) { } |
|
|
0 |
0 |
elsif (not $found) { } |
|
|
0 |
0 |
elsif (not defined $renderer) { } |
|
311
|
0 |
0 |
unless ($YATT::Toplevel::CGI::CONFIG->{'cf_no_chdir'}) |
|
316
|
0 |
0 |
if (not defined $param[0] and $widget->public) |
|
319
|
0 |
0 |
if (my $handler = $pkg->can('dispatch_action')) { } |
|
340
|
0 |
0 |
if (not $root) { } |
|
|
0 |
0 |
elsif (&catch(sub {
$found = ($renderer, $pkg) = $root->lookup_handler_to('render', 'error');
}
, \my $load_error)) { } |
|
|
0 |
0 |
elsif (not $found) { } |
|
|
0 |
0 |
elsif (&catch(sub {
$html = &capture(sub {
&$renderer($pkg, [$error, $info]);
}
);
}
, \my YATT::Exception $error2)) { } |
|
347
|
0 |
0 |
$CGI ? : |
|
349
|
0 |
0 |
if $info |
|
354
|
0 |
0 |
if (not ref $error2) { } |
|
|
0 |
0 |
elsif (not UNIVERSAL::isa($error2, 'YATT::Exception')) { } |
|
|
0 |
0 |
elsif ($error2->is_normal) { } |
|
364
|
0 |
0 |
$CGI ? : |
|
374
|
0 |
0 |
if ($CONFIG and $YATT::Toplevel::CGI::CONFIG->{'cf_no_header'}) { } |
|
379
|
0 |
0 |
$SESSION ? : |
|
387
|
0 |
0 |
if $cgi |
|
390
|
0 |
0 |
$cgi ? : |
|
422
|
0 |
0 |
unless -d (my $dir = "$rootname.tmpl") |
|
429
|
0 |
0 |
defined $level ? : |
|
434
|
0 |
0 |
unless -r $file |
|
435
|
0 |
0 |
wantarray ? : |
|
445
|
0 |
1 |
if (not defined $file && -r $file) { } |
|
|
0 |
1 |
elsif (-f $file) { } |
|
|
0 |
1 |
elsif (not -d $file) { } |
|
|
0 |
1 |
elsif (-r (my $found = "$file/" . $config->ROOT_CONFIG)) { } |
|
|
0 |
1 |
elsif ($config->find_root_upward and my(@found) = $config->upward_find_file($file, $config->find_root_upward)) { } |
|
446
|
0 |
0 |
defined $file ? : |
|
466
|
1 |
0 |
unless -f $file and -r $file |
|
479
|
0 |
0 |
unless @prefix |
|
486
|
0 |
0 |
unless @dirs |
|
496
|
0 |
0 |
unless ($not_found or -e $path_translated) |
|
503
|
0 |
0 |
unless ($cfobj->{'cf_registry'}) |
|
514
|
0 |
0 |
@params ? : |
|
526
|
1 |
1 |
unless ($@) |
|
531
|
0 |
1 |
unless ($class) |
|
535
|
0 |
1 |
if ($class eq 'CGI' and not $class->can('multi_param')) |
|
539
|
0 |
1 |
if ($class eq 'CGI::Simple' and not $class->can('multi_param')) |
|
542
|
0 |
1 |
unless ($class->can('multi_param')) |
|
548
|
0 |
1 |
if (UNIVERSAL::isa($oldcgi, $class)) { } |
|
551
|
1 |
0 |
defined $oldcgi ? : |
|
559
|
0 |
0 |
if (ref $YATT::Toplevel::CGI::CONFIG->{'cf_use_session'}) { } |
|
579
|
1 |
0 |
@_ == 1 ? : |
|
580
|
0 |
1 |
if defined $config and ref $config and UNIVERSAL::isa($config, 'YATT::Toplevel::CGI::Config') |
|
583
|
1 |
0 |
if (ref $pack or not UNIVERSAL::isa($pack, 'YATT::Toplevel::CGI::Config')) |
|
588
|
0 |
1 |
if (not defined $config) { } |
|
|
1 |
0 |
elsif (not ref $config) { } |
|
|
0 |
0 |
elsif (ref $config eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $config eq 'HASH') { } |
|
615
|
0 |
0 |
if ($mine) |
|
618
|
0 |
0 |
if ($$trans_keys{"cf_$name"}) { } |
|
|
0 |
0 |
elsif (not $mine) { } |
|
624
|
0 |
0 |
if @mine |
|
626
|
0 |
0 |
if ($$trans_keys{"cf_$name"} and defined(my $value = $$config{"cf_$name"})) |
|
632
|
0 |
0 |
if (@unknown) |
|
633
|
0 |
0 |
unless ($config->{'cf_allow_unknown_config'}) |
|
645
|
0 |
0 |
unless eval "require $class" |
|
647
|
0 |
0 |
if (my $sub = $class->can('rlimit_' . $rsrc)) { } |
|
660
|
0 |
0 |
if (@value > 1) { } |
|
681
|
0 |
0 |
unless defined $env |
|
684
|
0 |
0 |
unless defined $env->{$vn} |
|
695
|
0 |
0 |
if (defined $random) { } |
|
696
|
0 |
0 |
ref $random ? : |
|
707
|
0 |
0 |
if ($RANDOM_LIST) { } |
|
720
|
0 |
0 |
wantarray ? : |
|
734
|
0 |
0 |
if defined $_ |
|
744
|
0 |
0 |
unless (defined $YATT::Toplevel::CGI::CGI->{'.allow_debug'}) |
|
753
|
0 |
0 |
if (not defined $pat) { } |
|
|
0 |
0 |
elsif (ref $pat) { } |
|
|
0 |
0 |
elsif ($pat eq '') { } |
|
767
|
0 |
0 |
unless -r $fn |
|
768
|
0 |
0 |
unless open my $fh, '<', $fn |
|
774
|
0 |
0 |
unless /\S/ |
|
811
|
0 |
0 |
if $_[0] =~ m[/$] |
|
819
|
0 |
0 |
unless (index($file, $rootdir) == 0) |
|
827
|
0 |
0 |
if defined $elempath[0] and $elempath[0] eq '' |
|
837
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
|
|
0 |
1 |
$_ ? : |
|
852
|
0 |
0 |
if $ENV{'VERBOSE'} |
|
853
|
0 |
0 |
if (&catch(sub {
$pack->run_template($pack->rel2abs($file), \%param, $config);
}
, \my $error)) |
|
858
|
0 |
0 |
if $ENV{'VERBOSE'} |