| line |
true |
false |
branch |
|
111
|
2 |
1 |
if ($default_export and not UNIVERSAL::can($calling_package, '_import'))
|
|
117
|
0 |
2 |
*{"${calling_package}::import";}{'CODE'} ? :
|
|
126
|
2 |
1 |
if $default_export
|
|
134
|
2 |
1 |
if ($default_export or not scalar @_)
|
|
155
|
0 |
0 |
if (scalar @{"${imported_package}::EXPORT_BLOCK";})
|
|
172
|
0 |
0 |
if (scalar keys %declare)
|
|
204
|
2 |
3 |
$$handle ? :
|
|
|
2 |
5 |
blessed $_ && $_->can('render') ? :
|
|
232
|
0 |
19 |
$c && $c->can('stash') ? :
|
|
246
|
31 |
97 |
ref $_ eq 'ARRAY' ? :
|
|
258
|
2 |
29 |
if (not defined $v) { }
|
|
|
0 |
29 |
elsif ($k eq 'autofocus' or $k eq 'checked' or $k eq 'disabled' or $k eq 'formnovalidate' or $k eq 'hidden' or $k eq 'inert' or $k eq 'multiple' or $k eq 'novalidate' or $k eq 'readonly' or $k eq 'selected' or $k eq 'required') { }
|
|
272
|
0 |
0 |
$v ? :
|
|
275
|
1 |
28 |
if (ref $v eq 'SCALAR') { }
|
|
|
4 |
24 |
elsif (ref $v) { }
|
|
286
|
1 |
0 |
ref $v eq 'CODE' ? :
|
|
|
1 |
1 |
ref $v eq 'HASH' ? :
|
|
|
2 |
2 |
ref $v eq 'ARRAY' ? :
|
|
315
|
0 |
28 |
exists $EMPTY_ELEMENT{$$_[0]} ? :
|
|
|
28 |
3 |
$$_[0] ? :
|
|
338
|
0 |
1 |
if (ref $text and UNIVERSAL::can($text, 'render')) { }
|
|
373
|
1 |
0 |
if ($code)
|
|
392
|
0 |
0 |
if $block_content
|
|
423
|
0 |
0 |
if not $kind or ref $kind
|
|
425
|
0 |
0 |
if ($kind eq 'css') { }
|
|
|
0 |
0 |
elsif ($kind eq 'js') { }
|
|
|
0 |
0 |
elsif (my $controller = $c->controller($kind) and $kind eq 'Js' || $kind eq 'Css') { }
|
|
456
|
0 |
0 |
if ($kind eq 'Css') { }
|
|
493
|
0 |
0 |
if $c->debug
|
|
495
|
0 |
0 |
exists $c->stash->{'yield'}{$yield_name} ? :
|
|
|
0 |
0 |
unless _yield(exists $c->stash->{'yield'}{$yield_name} ? $c->stash->{'yield'}{$yield_name} : $yield_name)
|
|
507
|
0 |
0 |
if (not $thing) { }
|
|
|
0 |
0 |
elsif (ref $thing eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif (ref $thing eq 'CODE') { }
|
|
|
0 |
0 |
elsif (not ref $thing) { }
|
|
512
|
0 |
0 |
if _yield($x)
|
|
529
|
0 |
2 |
if scalar @_ == 1 and defined wantarray
|
|
540
|
0 |
11 |
unless my(@args) = @_
|
|
560
|
12 |
0 |
if not ref $_ and defined $_
|
|
561
|
6 |
10 |
if ($name =~ s/\A([-+])//msx)
|
|
562
|
3 |
3 |
$1 eq '-' ? :
|
|
564
|
3 |
13 |
if ($operation < 0) { }
|
|
|
6 |
7 |
elsif ($operation > 0) { }
|
|
634
|
0 |
0 |
if ($kind =~ /\A $$d[0]/imsx)
|
|
653
|
1 |
1 |
if ($code)
|
|
691
|
17 |
0 |
if ($_[0])
|
|
697
|
1 |
16 |
if (ref $text and UNIVERSAL::can($text, 'render')) { }
|
|
|
1 |
15 |
elsif (ref $text eq 'SCALAR') { }
|