| line |
true |
false |
branch |
|
144
|
0 |
0 |
unless my($found) = $pack->find_factory_script(delete $opts{'dir'}) |
|
145
|
0 |
0 |
unless my $self = $pack->load_factory_script($found) |
|
158
|
0 |
0 |
if ($self->{'cf_offline'}) |
|
170
|
0 |
0 |
unless (defined $psgi) |
|
173
|
0 |
0 |
unless (-r $psgi) |
|
182
|
0 |
0 |
unless (-d $app_root) |
|
187
|
0 |
0 |
if (-d "$app_root/ytmpl") |
|
190
|
0 |
0 |
if (my(@cf) = map({my $cf = "$app_rootname.$_";
-e $cf ? $cf : ();} $pack->default_config_filetypes)) { } |
|
192
|
0 |
0 |
-e $cf ? : |
|
194
|
0 |
0 |
if @cf > 1 |
|
215
|
0 |
32 |
if (my $outer = delete $self->{'_outer_psgi_app'}) |
|
230
|
0 |
8 |
if (@_ >= 2) |
|
234
|
1 |
7 |
if (my $old = delete $self->{'_my_psgi_app'}) |
|
240
|
8 |
0 |
unless $want_object |
|
248
|
0 |
2 |
unless ($self->{'_my_psgi_app'}) |
|
254
|
2 |
0 |
unless $want_object |
|
263
|
0 |
1 |
if (ref $sub eq 'CODE') { } |
|
|
1 |
0 |
elsif ($sub->isa($pack) or $sub->isa('YATT::Lite::Factory')) { } |
|
278
|
0 |
1 |
if (wantarray) { } |
|
284
|
1 |
0 |
unless (*{$sym;}{'CODE'}) |
|
287
|
0 |
1 |
wantarray ? : |
|
297
|
1 |
0 |
if 'FindBin'->can('again') |
|
298
|
1 |
0 |
if ($fn =~ /\.psgi$/) { } |
|
311
|
0 |
0 |
if (my($found) = grep({-r $_;} map({"$dir/$_.psgi";} 'runyatt', 'app'))) |
|
323
|
36 |
0 |
unless $self->{'cf_no_preload_app_base'} |
|
335
|
2 |
6 |
if $dir =~ /^::/ |
|
356
|
0 |
37 |
if ($self->{'cf_no_unicode'}) { } |
|
385
|
0 |
37 |
if (not $self->{'cf_allow_missing_dir'} and $self->{'cf_doc_root'} and not -d $self->{'cf_doc_root'}) |
|
390
|
37 |
0 |
if ($self->{'cf_doc_root'}) |
|
398
|
37 |
0 |
if (my $dir = $self->{'cf_doc_root'}) |
|
426
|
0 |
37 |
ref $reqrec ? : |
|
432
|
0 |
37 |
unless (@pi) |
|
436
|
0 |
37 |
unless (my $dh = $self->get_lochandler(map({untaint_any($_);} $loc, $tmpldir))) |
|
446
|
0 |
37 |
@rest ? : |
|
473
|
21 |
3 |
unless $path_info =~ /$self->{'loc2psgi_re'}/ |
|
474
|
0 |
3 |
unless my(@mount_match) = grep({/^@{['__yatt'];}/o;} keys %+) |
|
476
|
0 |
3 |
if (@mount_match >= 2) |
|
485
|
0 |
3 |
wantarray ? : |
|
490
|
0 |
3 |
unless (defined $path_prefix) |
|
493
|
3 |
0 |
unless (ref $path_prefix) |
|
525
|
0 |
0 |
ref $realpath eq 'CODE' ? : |
|
544
|
0 |
28 |
if (my $ref = ref $path_info) |
|
549
|
0 |
28 |
unless (@pi) |
|
552
|
0 |
28 |
unless ($is_index) |
|
629
|
0 |
201 |
unless ($self->get_yatt($location)) |
|
638
|
0 |
261 |
if (my $yatt = $self->{'loc2yatt'}{$loc}) |
|
644
|
0 |
261 |
unless ($realdir) |
|
657
|
0 |
393 |
unless (defined $path and $path ne '') |
|
662
|
322 |
71 |
if (my $yatt = $self->{'path2yatt'}{$path}) |
|
665
|
54 |
17 |
if (not $visits) { } |
|
|
1 |
16 |
elsif (my $preds = $visits->check_cycle($path, $from)) { } |
|
672
|
0 |
70 |
unless ($self->{'cf_allow_missing_dir'} or -d $path) |
|
675
|
20 |
50 |
if (my(@cf) = map({my $cf = untaint_any($path) . "/.htyattconfig.$_";
-e $cf ? $cf : ();} $self->config_filetypes)) { } |
|
677
|
20 |
120 |
-e $cf ? : |
|
679
|
0 |
20 |
if @cf > 1 |
|
707
|
4 |
63 |
if ($has_rc = -e (my $rc = "$path/.htyattrc.pl")) |
|
727
|
18 |
49 |
@basevfs ? : |
|
729
|
0 |
67 |
if (my(@unk) = $app_ns->YATT::Lite::Object::cf_unknowns(%opts)) |
|
736
|
4 |
63 |
if ($has_rc) |
|
764
|
39 |
31 |
unless my($base, @mixin) = lexpand($desc) |
|
776
|
5 |
45 |
if ($basespec =~ /^::(.*)/) { } |
|
|
45 |
0 |
elsif (my $realpath = $self->app_path_find_dir_in($in, $basespec)) { } |
|
778
|
5 |
0 |
$is_primary ? : |
|
781
|
9 |
36 |
if ($is_implicit) |
|
785
|
5 |
4 |
if $visits->has_node($realpath) |
|
789
|
21 |
19 |
$is_primary ? : |
|
802
|
5 |
40 |
unless $dir |
|
812
|
30 |
0 |
defined $_->[0] ? : |
|
813
|
28 |
0 |
if (not $self->{'cf_no_mro_c3'}) { } |
|
840
|
66 |
1 |
unless (*{$my;}{'CODE'}) |
|
846
|
6 |
61 |
unless ($newns->EntNS->isa($self->EntNS)) |
|
894
|
67 |
0 |
exists $hash->{'cf_error_handler'} ? : |
|
909
|
49 |
21 |
if ($basedir) { } |
|
917
|
11 |
10 |
if (defined(my $app_name = $self->_extract_app_name($path, $cp))) |
|
929
|
11 |
62 |
unless $bs eq $basedir |
|
938
|
0 |
22 |
unless my($ext) = $fn =~ /\.(\w+)$/ |
|
940
|
0 |
22 |
unless my $sub = $self->can("read_file_$ext") |
|
948
|
0 |
70 |
if (my $item = $self->{'cf_config_filetypes'}) { } |
|
966
|
2 |
0 |
wantarray ? : |
|
977
|
140 |
0 |
if (defined $_[0] and $_[0] ne '') { } |
|
981
|
0 |
140 |
$^O =~ /^MSWin/ ? : |