| line |
true |
false |
branch |
|
50
|
0 |
1 |
if (ref $hashOptPtr ne 'HASH')
|
|
54
|
0 |
2 |
if (exists $hashOptPtr->{$_})
|
|
59
|
1 |
0 |
if (not ref $input) { }
|
|
65
|
0 |
1 |
if ($suffix ne '.idl')
|
|
72
|
0 |
1 |
unless open my $fh, '<', $input
|
|
74
|
0 |
1 |
unless close $fh
|
|
94
|
0 |
1 |
unless defined $value and defined ${$value;}
|
|
99
|
0 |
1 |
if defined $nextValue
|
|
137
|
1 |
0 |
unless (defined $style)
|
|
138
|
1 |
0 |
if ($template eq 'perl5.tt2')
|
|
144
|
0 |
1 |
if (ref $targetOptionHashp ne 'HASH')
|
|
153
|
1 |
0 |
if ($addDefaultStyleInIncludePath)
|
|
177
|
0 |
1 |
unless $tt->process($template, $ttVarsHashp, \$self->{'_output'})
|