| line |
true |
false |
branch |
|
140
|
1 |
0 |
if (ref $_ eq 'ARRAY') { } |
|
160
|
178 |
0 |
if (my $enc = $self->{'cf_output_encoding'}) |
|
164
|
0 |
178 |
unless (defined $file) |
|
180
|
0 |
15 |
$YATT::Lite::SYS ? : |
|
197
|
142 |
6 |
if $ext eq $self->{'cf_ext_public'} |
|
198
|
0 |
148 |
unless my $sub = $self->can("_handle_$ext") |
|
231
|
0 |
0 |
if (not $self->{'cf_dont_debug_param'} and -e '.htdebug_param') |
|
238
|
0 |
0 |
unless ($part->public) |
|
244
|
0 |
0 |
unless $self->{'cf_dont_map_args'} or $part->isa($trans->Action) |
|
254
|
3 |
3 |
unless my($sigil, $word) = $name =~ /^([~!])(\1|\w*)$/ |
|
257
|
3 |
0 |
$word eq $sigil ? : |
|
262
|
0 |
1 |
if (defined $subpage) |
|
269
|
0 |
2 |
if (defined $action) |
|
280
|
0 |
142 |
if (defined $subpage and defined $action) { } |
|
|
1 |
141 |
elsif (defined $subpage) { } |
|
|
2 |
139 |
elsif (defined $action) { } |
|
295
|
0 |
178 |
unless defined $fn |
|
296
|
0 |
178 |
unless $fn =~ s/\.(\w+$)// |
|
310
|
0 |
0 |
unless $self->{'cf_output_encoding'} |
|
314
|
0 |
0 |
if grep {$_ eq $enc;} &PerlIO::get_layers($fh) |
|
335
|
69 |
566 |
unless $self->{'YATT'} |
|
343
|
69 |
0 |
unless $vfsspec |
|
344
|
0 |
69 |
if $self->{'cf_base'} |
|
399
|
0 |
210 |
unless my $sub = $self->can("root_$name") |
|
422
|
300 |
378 |
if (ref $self_or_pack) { } |
|
461
|
279 |
296 |
if (*{$sym;}{'CODE'}) |
|
468
|
112 |
184 |
$sub ? : |
|
474
|
86 |
0 |
unless ($base_suppls or $base_mains) |
|
479
|
86 |
0 |
$mypack->should_use_mro_c3 ? : |
|
487
|
294 |
2 |
if ($mypack->should_use_mro_c3) { } |
|
496
|
21 |
275 |
unless ('YATT::Lite::MFields'->has_fields($app_ns)) |
|
503
|
296 |
0 |
unless (grep {$_->can($kind);} @baseclass) |
|
507
|
294 |
2 |
if ($mypack->should_use_mro_c3) { } |
|
519
|
86 |
210 |
unless ($opts->{'no_fields'}) |
|
526
|
0 |
0 |
do {
(my $old = &$code()) ne $supplns
} ? : |
|
|
0 |
296 |
(my $code = *{$sym;}{'CODE'}) ? : |
|
539
|
47 |
56 |
defined symtab($_)->{'EntNS'} ? : |
|
551
|
138 |
4 |
$is_objclass ? : |
|
557
|
141 |
1 |
unless (*{$ent;}{'CODE'}) |
|
567
|
138 |
4 |
if ($is_objclass) |
|
570
|
27 |
111 |
unless ($callpack->can('entity')) |
|
610
|
0 |
0 |
if (defined(my $old = $action_dict->{$name})) |
|
620
|
4 |
0 |
unless my $glob = look_for_globref($self, 'Actions') |
|
636
|
124 |
18 |
if UNIVERSAL::isa($class, 'YATT::Lite::Object') |
|
637
|
4 |
14 |
unless my $sym = look_for_globref($class, 'FIELDS') |
|
670
|
0 |
0 |
unless ($msglist or $msgdict) |
|
680
|
0 |
0 |
unless $self->{'cf_default_lang'} |
|
725
|
0 |
0 |
do {
ref $_[0]
} ? : |
|
|
0 |
0 |
do {
not defined $_[0]
} ? : |
|
|
0 |
0 |
do {
@_ > 1
} ? : |
|
|
0 |
0 |
@_ ? : |
|
744
|
0 |
0 |
if (ref $v eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $v eq 'ARRAY') { } |