| line |
true |
false |
branch |
|
28
|
77 |
0 |
if ($] > 5.007) |
|
31
|
0 |
77 |
if $@ |
|
179
|
73 |
1547 |
if (not $CodeGeneratorLoaded) |
|
182
|
0 |
73 |
if $@ |
|
193
|
134 |
81 |
if @_ == 1 |
|
208
|
20 |
195 |
if ($file =~ /#/) { } |
|
231
|
16 |
0 |
if $filename |
|
244
|
0 |
0 |
exists $_[0]{'default_language'} ? : |
|
245
|
1 |
0 |
exists $_[0]{'input'} ? : |
|
246
|
0 |
0 |
exists $_[0]{'output'} ? : |
|
247
|
2 |
2 |
exists $_[0]{'taint'} ? : |
|
248
|
0 |
0 |
exists $_[0]{'error_on_undef_var'} ? : |
|
249
|
2 |
2 |
exists $_[0]{'disk_cache'} ? : |
|
250
|
2 |
2 |
exists $_[0]{'memory_cache'} ? : |
|
251
|
2 |
2 |
exists $_[0]{'cache_only'} ? : |
|
252
|
2 |
2 |
exists $_[0]{'max_includes'} ? : |
|
258
|
436 |
0 |
defined $_ ? : |
|
265
|
48 |
209 |
if (exists $self->{'base_dir'}) { } |
|
268
|
3 |
45 |
if (ref $base_dir) { } |
|
271
|
0 |
45 |
unless defined $base_dir |
|
277
|
200 |
9 |
if (defined $BASE_DIR) { } |
|
293
|
2 |
69 |
if ($file =~ /^#/) |
|
298
|
53 |
18 |
unless $file =~ /^\./ |
|
311
|
25 |
27 |
if $next eq '.' |
|
313
|
3 |
24 |
if ($next eq '..') |
|
315
|
2 |
1 |
if scalar @new_path == 0 |
|
348
|
0 |
204 |
defined $self->{'taint'} ? : |
|
349
|
0 |
204 |
defined $self->{'error_on_undef_var'} ? : |
|
350
|
6 |
198 |
defined $self->{'disk_cache'} ? : |
|
351
|
6 |
198 |
defined $self->{'memory_cache'} ? : |
|
352
|
1 |
203 |
defined $self->{'cache_only'} ? : |
|
353
|
3 |
201 |
defined $self->{'max_includes'} ? : |
|
354
|
3 |
201 |
defined $self->{'input'} ? : |
|
355
|
2 |
202 |
defined $self->{'output'} ? : |
|
356
|
1 |
19 |
ref $self->{'base_dir'} ? : |
|
|
20 |
184 |
defined $self->{'base_dir'} ? : |
|
357
|
1 |
19 |
ref $self->{'base_dir'} ? : |
|
|
20 |
184 |
defined $self->{'base_dir'} ? : |
|
358
|
0 |
204 |
defined $self->{'default_language'} ? : |
|
359
|
0 |
204 |
defined $self->{'debug_dump'} ? : |
|
360
|
0 |
204 |
defined $self->{'error_on_include_error'} ? : |
|
361
|
2 |
202 |
defined $self->{'decode_charset'} ? : |
|
362
|
5 |
199 |
defined $self->{'translation_service'} ? : |
|
367
|
2 |
202 |
if $CURRENT_INCLUDES > $MAX_INCLUDES |
|
373
|
69 |
133 |
if (ref $_[0] eq 'Petal::Hash') { } |
|
|
14 |
119 |
elsif (ref $_[0] eq 'HASH') { } |
|
378
|
0 |
195 |
unless $coderef |
|
379
|
0 |
195 |
unless $hash |
|
383
|
2 |
200 |
if ($CACHE_ONLY == 1) |
|
385
|
9 |
191 |
if (defined $@ and $@) { } |
|
|
5 |
372 |
elsif (defined $TranslationService and $CURRENT_INCLUDES == 1) { } |
|
400
|
177 |
27 |
if (defined $BASE_DIR) |
|
402
|
64 |
113 |
unless 'File::Spec'->file_name_is_absolute($BASE_DIR) |
|
407
|
124 |
70 |
'File::Spec'->file_name_is_absolute($_) ? : |
|
408
|
194 |
0 |
defined $_ ? : |
|
410
|
20 |
184 |
if (defined $self->{'base_dir'}) |
|
412
|
1 |
19 |
if (ref $self->{'base_dir'}) { } |
|
415
|
0 |
2 |
'File::Spec'->file_name_is_absolute($_) ? : |
|
416
|
2 |
0 |
defined $_ ? : |
|
417
|
1 |
0 |
if defined $self->{'base_dir'} |
|
423
|
19 |
0 |
unless 'File::Spec'->file_name_is_absolute($self->{'base_dir'}) |
|
434
|
1 |
8 |
if ($HTML_ERRORS) |
|
451
|
0 |
1 |
$dump ? : |
|
457
|
7 |
1 |
if ($DEBUG_DUMP) |
|
465
|
0 |
7 |
if (ref $error) |
|
483
|
1 |
6 |
$dump ? : |
|
488
|
1 |
0 |
if (not $DEBUG_DUMP) |
|
530
|
0 |
540 |
if @_ |
|
540
|
213 |
20 |
unless $file =~ s/^.*#// |
|
550
|
0 |
23 |
$macro ? : |
|
573
|
230 |
12 |
if -e $file_path and -r $file_path |
|
590
|
207 |
0 |
if ($] > 5.007) { } |
|
593
|
0 |
207 |
unless open FP, "<:encoding($encoding)", "$file_path" |
|
606
|
27 |
180 |
$OUTPUT =~ /HTML$/i || $INPUT =~ /HTML$/i ? : |
|
621
|
4 |
206 |
defined $DISK_CACHE && $DISK_CACHE ? : |
|
622
|
210 |
0 |
unless (defined $code) |
|
632
|
4 |
192 |
if defined $DISK_CACHE and $DISK_CACHE |
|
645
|
8 |
194 |
defined $MEMORY_CACHE && $MEMORY_CACHE ? : |
|
646
|
202 |
0 |
unless (defined $code) |
|
652
|
0 |
195 |
if $@ |
|
655
|
7 |
188 |
if defined $MEMORY_CACHE and $MEMORY_CACHE |
|
668
|
0 |
0 |
if defined $self->{'memory_cache'} |