| line |
true |
false |
branch |
|
64
|
191 |
137 |
unless $_[1] |
|
66
|
306 |
22 |
length $text ? : |
|
70
|
3 |
1 |
defined $3 ? : |
|
|
4 |
6 |
defined $1 ? : |
|
|
10 |
67 |
$cmnt =~ /^#(?:\s*line\s+(\d+)\s*(?:\s("?)([^"]+)\g2)?\s*|.*)$/u ? : |
|
80
|
3 |
6 |
$defn =~ /\W/u ? : |
|
84
|
165 |
10 |
unless $Plate::_s->{'keep_undef'} |
|
85
|
80 |
95 |
if (length $_[1]) { } |
|
|
88 |
7 |
elsif (not $Plate::_s->{'keep_undef'}) { } |
|
98
|
125 |
70 |
if (@expr) { } |
|
99
|
85 |
40 |
if (defined $stmt) { } |
|
100
|
26 |
59 |
if $pre |
|
105
|
45 |
80 |
$_[0] ? : |
|
109
|
150 |
45 |
unless $_[0] |
|
113
|
328 |
206 |
if (length $1) |
|
115
|
1 |
4 |
defined $stmt ? : |
|
|
31 |
5 |
@expr ? : |
|
|
36 |
292 |
if $add_lines |
|
116
|
114 |
214 |
if $fix_line_num |
|
119
|
24 |
330 |
if (not $pre and @Plate::_l and $Plate::_l[0] <= $+[1]) |
|
123
|
8 |
16 |
if $rem |
|
128
|
77 |
457 |
if (defined $2) { } |
|
|
8 |
449 |
elsif (defined $3) { } |
|
|
9 |
440 |
elsif (defined $5) { } |
|
|
4 |
436 |
elsif (defined $7) { } |
|
|
106 |
330 |
elsif (defined $8) { } |
|
|
69 |
261 |
elsif (defined $11) { } |
|
137
|
2 |
6 |
unless (defined $4) |
|
150
|
7 |
2 |
$5 eq 'def' ? : |
|
157
|
1 |
1 |
defined $stmt ? : |
|
|
1 |
2 |
@expr ? : |
|
|
3 |
1 |
if $add_lines |
|
158
|
1 |
3 |
if $fix_line_num |
|
164
|
30 |
76 |
if $fix_line_num |
|
167
|
11 |
95 |
if $pre |
|
173
|
28 |
41 |
if $pre or $fix_line_num |
|
174
|
58 |
11 |
if (defined $tmpl) { } |
|
175
|
26 |
32 |
if ($tmpl eq "_") |
|
177
|
3 |
14 |
defined $args ? : |
|
|
9 |
17 |
defined $10 ? : |
|
178
|
4 |
5 |
defined $args ? : |
|
179
|
4 |
5 |
$pre ? : |
|
183
|
2 |
24 |
if $pre and $nl |
|
186
|
15 |
17 |
defined $args ? : |
|
190
|
2 |
17 |
$pre ? : |
|
|
19 |
24 |
defined $10 ? : |
|
192
|
1 |
42 |
if $pre and $nl |
|
197
|
3 |
258 |
if ($tag ne $_[3]) |
|
200
|
2 |
1 |
$tag ? : |
|
206
|
166 |
8 |
@expr ? : |
|
|
84 |
174 |
defined $stmt ? : |
|
207
|
17 |
67 |
if $pre and @expr |
|
211
|
135 |
1 |
if not $pre and $Plate::_s->{'chomp'} |
|
212
|
8 |
250 |
if defined $13 |
|
216
|
5 |
191 |
if (not $pre and @Plate::_l and $Plate::_l[0] <= $+[0]) |
|
220
|
2 |
3 |
if $rem |
|
228
|
4 |
16 |
unless open my $fh, "<" . $_[0]{'io_layers'}, $_[1] |
|
235
|
1 |
7 |
unless (open(my $fh, ">:utf8", $_[0]), umask $umask)[0] |
|
245
|
46 |
70 |
if (length $file) { } |
|
255
|
1 |
112 |
unless $sub = _eval($pl) |
|
257
|
1 |
111 |
unless defined($pl = eval {
do {
&$sub()
}
}) |
|
262
|
5 |
104 |
unless $sub = _eval($pl) |
|
265
|
8 |
96 |
if defined $_[2] |
|
266
|
8 |
95 |
if defined $_[4] |
|
272
|
9 |
2 |
unless @mkdir |
|
279
|
45 |
6 |
defined $_[0]{'path'} ? : |
|
282
|
27 |
11 |
defined $_[0]{'cache_path'} ? : |
|
288
|
26 |
11 |
if (defined $cache) { } |
|
|
10 |
1 |
elsif (defined $plate) { } |
|
289
|
8 |
18 |
if ($_[0]{'static'}) { } |
|
290
|
1 |
0 |
$@ ? : |
|
|
4 |
4 |
if -f $cache |
|
294
|
7 |
8 |
if (-f $cache and ($_[0]{'mod'}{$_[1]} // (stat _)[9]) >= $_n) |
|
295
|
1 |
0 |
$@ ? : |
|
302
|
3 |
7 |
unless $_[0]{'static'} or exists $_[0]{'mod'}{$_[1]} |
|
309
|
164 |
6 |
if $_[0]{'static'} or not exists $_[0]{'mod'}{$_[1]} |
|
310
|
2 |
4 |
unless my $mod = (stat $_[0]->_plate_file($_[1]))[9] |
|
312
|
3 |
1 |
if $_[0]{'mod'}{$_[1]} == $mod |
|
318
|
170 |
29 |
$Plate::_s->{'cache_code'} ? : |
|
324
|
6 |
155 |
if ($tmpl eq "_") |
|
325
|
3 |
3 |
unless @Plate::_c |
|
326
|
2 |
1 |
if (defined(my $c = pop())) { } |
|
335
|
2 |
153 |
if (@Plate::_c >= $Plate::_s->{'max_call_depth'}) |
|
351
|
1 |
1 |
length $vol || !$_[1] ? : |
|
|
2 |
19 |
unless length $path |
|
353
|
8 |
1 |
if $_[1] and not length $vol and length $dir[0] || @dir == 1 |
|
646
|
17 |
3 |
if @_ |
|
675
|
5 |
1 |
ref $_c eq 'SCALAR' ? : |
|
|
96 |
6 |
ref $_c eq 'CODE' ? : |
|
677
|
64 |
38 |
ref $tmpl eq 'SCALAR' ? : |
|
698
|
51 |
1 |
@Plate::_c ? : |
|
701
|
3 |
1 |
if @Plate::_c |
|
725
|
19 |
12 |
if $_[0]{'mod'} |
|
726
|
1 |
30 |
ref $_[2] eq 'CODE' ? : |
|
733
|
2 |
1 |
if (defined $_[1]) { } |
|
761
|
2 |
3 |
if $_[0]{'cache_code'} and not $_[0]{'static'} and exists $_[0]{'mod'}{$_[1]} |
|
764
|
6 |
1 |
unless exists $_[0]{'mem'}{$_[1]} |
|
769
|
1 |
7 |
ref $_[1] eq 'SCALAR' ? : |
|
792
|
10 |
1 |
defined $_[1] ? : |
|
795
|
1 |
2 |
$_[1] eq 'utf8' ? : |
|
|
3 |
1 |
length $_[1] ? : |
|
799
|
1 |
7 |
unless ref $_[1] eq "HASH" |
|
803
|
1 |
7 |
unless $name =~ /^\w+$/u |
|
805
|
5 |
2 |
if (defined $code) { } |
|
809
|
1 |
1 |
$code =~ /(.*)::(.*)/u ? : |
|
|
1 |
4 |
unless ref $code eq "CODE" or $code = $code =~ /(.*)::(.*)/u ? $1->can($2) : do {
my($i, $p) = 0;
++$i while "Plate" eq ($p = caller $i);
$p->can($code)
} |
|
822
|
10 |
5 |
length $_[1] ? : |
|
825
|
2 |
1 |
unless defined $_[1] and $_[1] =~ /^[A-Z_a-z][0-9A-Z_a-z]*(?:::[0-9A-Z_a-z]+)*$/u |
|
831
|
1 |
3 |
unless ref $_[1] eq "HASH" |
|
835
|
7 |
1 |
if (defined $ref) { } |
|
837
|
5 |
2 |
if $sigil ne "&" |
|
849
|
1 |
75 |
unless my $c = $self->can("_set_$k") |
|
854
|
43 |
4 |
if (defined $self->{'path'}) { } |
|
856
|
20 |
23 |
length $self->{'path'} ? : |
|
857
|
1 |
42 |
unless -d $dir and -r _ |
|
858
|
7 |
35 |
if $self->{'static'} and $self->{'static'} eq "auto" |
|
863
|
16 |
30 |
if (defined $self->{'cache_path'}) { } |
|
|
9 |
21 |
elsif (not $self->{'cache_code'}) { } |
|
865
|
11 |
5 |
if (-d $dir) { } |
|
866
|
0 |
11 |
unless -w _ |
|
869
|
1 |
4 |
unless (mkdir($dir), umask $umask)[0] |