| line |
true |
false |
branch |
|
40
|
0 |
0 |
if (not ref $form) { } |
|
|
0 |
0 |
elsif (ref $form eq 'HASH') { } |
|
42
|
0 |
0 |
if $@ |
|
50
|
0 |
0 |
unless defined $form |
|
84
|
0 |
0 |
if @_ |
|
85
|
0 |
0 |
if (my $prod = $self->{'HF_producer'}{$class}) |
|
87
|
0 |
0 |
if $@ |
|
95
|
0 |
0 |
if defined $prod |
|
104
|
0 |
0 |
unless @_ |
|
106
|
0 |
0 |
[0] ? : |
|
110
|
0 |
0 |
if -f $filename |
|
113
|
0 |
0 |
if -d $dirname |
|
122
|
0 |
0 |
[0] ? : |
|
123
|
0 |
0 |
unless @_ |
|
125
|
0 |
0 |
@_ == 1 ? : |
|
132
|
0 |
0 |
unless my $producer = $self->producer($object) |
|
136
|
0 |
0 |
unless my $output = $args{'output'} |
|
144
|
0 |
0 |
if (my $input = $args{'use'}) { } |
|
148
|
0 |
0 |
ref $input ? : |
|
149
|
0 |
0 |
file_name_is_absolute($in) ? : |
|
150
|
0 |
0 |
unless -f $fn |
|
156
|
0 |
0 |
unless my $templates = $self->templates($topic) |
|
160
|
0 |
0 |
unless @files |
|
186
|
0 |
0 |
if ref $thing eq "ARRAY" |
|
187
|
0 |
0 |
if -f $thing |
|
189
|
0 |
0 |
unless -d $thing |
|
192
|
0 |
0 |
unless opendir DIR, $thing |
|
197
|
0 |
0 |
if $item eq "." or $item eq ".." |
|
200
|
0 |
0 |
if (-f $full) |
|
206
|
0 |
0 |
if (-d $full) |