| line |
true |
false |
branch |
|
32
|
6 |
1 |
if (%opts) |
|
34
|
0 |
33 |
unless defined $self->can($k) |
|
45
|
0 |
76 |
if $dir and ref $dir |
|
46
|
7 |
69 |
if $dir |
|
54
|
2 |
2 |
if $template_hash |
|
62
|
5 |
2 |
if ($defaults) |
|
64
|
0 |
5 |
unless ref $defaults eq ref {} |
|
76
|
9 |
2 |
if (defined $char) |
|
77
|
6 |
3 |
if ($char eq '') { } |
|
80
|
0 |
3 |
unless $char =~ /./ |
|
91
|
2 |
1 |
if (defined $delim1) |
|
102
|
7 |
1 |
if (defined $delim1) |
|
104
|
6 |
1 |
if (ref $delim1 eq ref []) |
|
118
|
1 |
67 |
if $show and not $show == 0 || $show == 1 |
|
119
|
3 |
64 |
if defined $show |
|
126
|
0 |
76 |
if defined $ext and ref $ext |
|
127
|
7 |
69 |
if defined $ext |
|
134
|
0 |
213 |
if defined $label and ref $label |
|
135
|
7 |
206 |
if $label |
|
143
|
5 |
2 |
if (defined $indent) |
|
144
|
1 |
4 |
unless $indent == 0 or $indent == 1 |
|
155
|
6 |
2 |
if (defined $should_die) |
|
156
|
1 |
5 |
unless $should_die == 0 or $should_die == 1 |
|
168
|
5 |
2 |
if (defined $char) |
|
169
|
0 |
5 |
unless $char eq '' or $char =~ /./ |
|
182
|
12 |
106 |
if (ref($comp) =~ /array/i) { } |
|
|
67 |
39 |
elsif (ref($comp) =~ /hash/i) { } |
|
198
|
0 |
67 |
unless ref($h) =~ /hash/i |
|
202
|
0 |
67 |
unless $template_name |
|
207
|
65 |
73 |
if $k eq $self->name_label |
|
214
|
8 |
54 |
if ($self->show_labels) |
|
232
|
0 |
12 |
unless ref($arr) =~ /array/i |
|
235
|
0 |
23 |
if $delim and $html |
|
248
|
3 |
68 |
if ($self->{'template_hash'}) { } |
|
258
|
0 |
68 |
unless open $fh, '<', $filename |
|
309
|
65 |
0 |
if ($esc) { } |
|
325
|
5 |
65 |
if ($self->{'fixed_indent'}) { } |
|
328
|
5 |
0 |
if ($esc) { } |
|
340
|
5 |
0 |
if ($esc) { } |
|
341
|
5 |
0 |
if $frags[$i] =~ s/(?
|
|
343
|
0 |
0 |
if $frags[$i] =~ s/$repl/$param_out/ |
|
349
|
74 |
0 |
if ($esc) { } |
|
350
|
61 |
13 |
if $frags[$i] =~ s/(?
|
|
352
|
0 |
0 |
if $frags[$i] =~ s/\Q$tda\E\s+$param_name\s+\Q$tdb\E/$param_val/g |
|
357
|
66 |
4 |
if ($self->{'die_on_bad_params'}) |
|
358
|
3 |
63 |
unless $replaced |
|
363
|
18 |
44 |
if (%{$self->{'defaults'};}) { } |
|
378
|
11 |
3 |
if $char |
|
383
|
18 |
0 |
if ($esc) { } |
|
394
|
48 |
0 |
if ($esc) { } |
|
403
|
62 |
0 |
if ($esc) |
|
410
|
62 |
0 |
$esc ? : |
|
419
|
12 |
13 |
if (@parts == 1) { } |
|
425
|
2 |
11 |
unless $new_ref |