line |
true |
false |
branch |
32
|
0 |
45 |
unless chdir $self->{'cf_dir'} |
39
|
4 |
0 |
if ref $err |
42
|
45 |
0 |
if (my $charset = $self->header_charset) |
61
|
0 |
27 |
if (defined $type and my $subpath = $prop->{'cf_subpath'}) |
62
|
0 |
0 |
if $type ne 'action' |
67
|
9 |
18 |
if (not defined $type and $self->{'cf_use_subpath'} and my $subpath = $prop->{'cf_subpath'}) { } |
69
|
0 |
9 |
unless (my $tmpl = $trans->find_file($file)) |
72
|
1 |
8 |
unless (($part, my($formal, $actual)) = $tmpl->match_subroutes($subpath)) |
77
|
0 |
8 |
unless ($pkg = $trans->find_product('perl', $tmpl)) |
81
|
0 |
8 |
unless ($sub = $pkg->can("render_$name")) |
85
|
8 |
0 |
unless $self->{'cf_dont_map_args'} |
91
|
16 |
2 |
unless $self->{'cf_dont_map_args'} or $part->isa($trans->Action) |
94
|
0 |
26 |
unless ($part->public) |
109
|
17 |
28 |
if ($prop->{'cf_is_index'}) |
112
|
12 |
5 |
if ($sub_fn ne '' and my $action = $self->get_action_handler($sub_fn, 1)) |
121
|
0 |
6 |
unless my $action = $self->get_action_handler($file) |
145
|
1 |
2 |
if not defined $age and $can_be_missing |
153
|
0 |
16 |
if (not defined $item) { } |
|
12 |
4 |
elsif ($item->[1]) { } |
|
0 |
4 |
elsif (not defined($age = -M $path)) { } |
|
3 |
1 |
elsif ($item->[-1] == $age) { } |
168
|
1 |
18 |
unless defined $item and $item->[0] |
169
|
0 |
18 |
wantarray ? : |
190
|
0 |
0 |
unless $self->{'cf_header_charset'} or $self->{'cf_output_encoding'} or $YATT::Lite::WebMVC0::DirApp::SYS->header_charset |
198
|
0 |
0 |
unless ($self->{'locale_cache'}{$lang}) |
199
|
0 |
0 |
if (-r (my $fn = $self->fn_msgfile($lang))) |
215
|
0 |
0 |
if (my $con = $self->CON) { } |
|
0 |
0 |
elsif ($YATT::Lite::WebMVC0::DirApp::SYS) { } |
223
|
0 |
0 |
if (my $code = $err->{'cf_http_status_code'}) { } |
|
0 |
0 |
elsif ($code = $errcon->cget('status')) { } |
230
|
0 |
0 |
unless (($sub, $pkg) = $self->find_renderer($type, 'ignore_error', 1)) |
231
|
0 |
0 |
if ($err->{'cf_http_status_code'} or $self->{'cf_overwrite_status_code_for_errors_as'}) { } |
252
|
0 |
0 |
unless defined $name |