| blib/lib/YATT/Lite/Core.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 37 | 73 | 50.6 |
| line | l | !l | condition | |
|---|---|---|---|---|
| 306 | 0 | 0 | $ignore_error and return | |
| 333 | 0 | 0 | $ignore_error and return | |
| 341 | 0 | 11 | $ignore_error and return | |
| 344 | 2 | 0 | $ignore_error and return | |
| 350 | 0 | 0 | $ignore_error and return | |
| 354 | 0 | 0 | $ignore_error and return | |
| 502 | 151 | 175 | 0 | do { $tmpl->{'cf_mtime'} >= $mtime if defined $tmpl->{'cf_mtime'} } && do { '???'; $self->refresh_deps_for($tmpl) if $self->{'cf_always_refresh_deps'}; return } |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 279 | 45 | 0 | 10 | defined $args && $part->isa('YATT::Lite::Core'->Widget) |
| 466 | 2 | 0 | 1 | $other_msgs and $other_msgs->[0] |
| 484 | 226 | 1 | 0 | not defined $tmpl->{'cf_name'} and defined $tmpl->{'cf_path'} |
| 499 | 0 | 4 | 158 | $tmpl->{'cf_string'} and not $tmpl->{'cf_mtime'} |
| line | l | !l | condition |
|---|---|---|---|
| 144 | 74 | 65 | $list ||= [] |
| 186 | 0 | 7 | $tmpl->{'cf_base'} //= [] |
| 322 | 5 | 131 | $kind //= 'page' |
| 323 | 5 | 131 | $pureName //= '' |
| 427 | 0 | 210 | $opts{'sink'} || sub { my($info, @script) = @_; if (not $self->{'cf_debug_cgen'}) { (); } else { my YATT::Lite::Core::Template $real = $info->{'folder'}; print STDERR "# compiling $type code of $real->{'cf_path'}\n"; if ($self->{'cf_debug_cgen'} >= 2) { print STDERR "#--BEGIN--\n"; print STDERR @script, "\n"; print STDERR "#--END--\n\n"; } ; } ; ++$self->{'n_compiles'}; ckeval(@script); } |
| 444 | 2 | 0 | $msglist //= [] |
| 445 | 0 | 2 | $msgdict //= {} |
| 552 | 376 | 0 | $widget->{'arg_order'} ||= [] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 306 | 0 | 0 | 0 | $tmpl = $self->find_file($name) or $ignore_error and return |
| 321 | 129 | 6 | 1 | $partName ||= $self->{'cf_index_name'} |
| 333 | 1 | 0 | 0 | $part = $tmpl->{'Item'}{$partName} or $ignore_error and return |
| 341 | 124 | 0 | 11 | $tmpl = $self->find_file($partName) or $ignore_error and return |
| 344 | 122 | 0 | 2 | $tmpl->{'Item'}{$itemKey} || $self->find_part_from($tmpl, $itemKey) |
| 122 | 0 | 2 | $part = $tmpl->{'Item'}{$itemKey} || $self->find_part_from($tmpl, $itemKey) or $ignore_error and return | |
| 350 | 123 | 0 | 0 | my $pkg = $self->find_product('perl', $tmpl) or $ignore_error and return |
| 354 | 123 | 0 | 0 | my $sub = $pkg->can($method) or $ignore_error and return |
| 484 | 0 | 0 | 0 | ($tmpl->{'cf_name'}) = $tmpl->{'cf_path'} =~ /(\w+)\.\w+$/ or $self->error(q[Can't extract part name from '%s'], [$tmpl->{'cf_path'}]) |
| 549 | 13 | 376 | 0 | $widget->{'arg_dict'}{'body'} ||= do { my $var = $parser->mkvar_at(undef, 'code', 'body', scalar @{$widget->{'arg_order'} ||= [];}); push @{$$widget{'arg_order'};}, 'body'; $var } |