| line |
true |
false |
branch |
|
33
|
1 |
4 |
if defined $h{'secpat'} |
|
36
|
1 |
4 |
if defined $h{'secpat_delims'} and not ref $h{'secpat_delims'} |
|
40
|
0 |
5 |
if defined $h{'secpat_delims'} and ref $h{'secpat_delims'} |
|
45
|
0 |
5 |
if defined $h{'val_delims'} and not ref $h{'val_delims'} |
|
48
|
0 |
5 |
if defined $h{'val_delims'} and ref $h{'val_delims'} |
|
53
|
2 |
3 |
if (defined $h{'template_str'}) { } |
|
58
|
0 |
3 |
unless defined $h{'template_path'} and -e $h{'template_path'} |
|
77
|
0 |
12 |
unless defined $section |
|
79
|
0 |
12 |
unless exists $$self{'template_secs'}{$section} |
|
100
|
0 |
3 |
unless open my $fh, $$self{'template_path'} |
|
124
|
5 |
18 |
if /^$/ |
|
125
|
9 |
9 |
if (/$$self{'template_secpat'}/) { } |
|
151
|
1 |
3 |
unless (defined $flag) |
|
159
|
1 |
2 |
if ($flag =~ /^(off|o)$/i) |
|
166
|
0 |
2 |
unless ($flag =~ /^(off|left|right|both|l|r|b|o)$/i) |