| line |
true |
false |
branch |
|
27
|
0 |
3 |
if (exists $h{'secpat'} and ref $h{'secpat'}) |
|
31
|
0 |
3 |
if (exists $h{'val_delims'} and ref $h{'val_delims'} eq 'ARRAY') |
|
37
|
2 |
1 |
if (defined $h{'template_str'}) |
|
42
|
0 |
1 |
unless defined $h{'template_path'} and -e $h{'template_path'} |
|
58
|
0 |
1 |
unless open my $fh, $tpath |
|
78
|
3 |
10 |
if $el =~ /^$/ |
|
79
|
5 |
5 |
if ($el =~ /$$self{'secpat'}/) { } |
|
98
|
0 |
8 |
unless defined $section |
|
100
|
0 |
8 |
unless exists $$self{'template_secs'}{$section} |
|
113
|
1 |
3 |
unless (defined $flag) |
|
119
|
1 |
2 |
if ($flag =~ /^(off|o)$/i) |
|
125
|
0 |
2 |
unless ($flag =~ /^(off|left|right|both|l|r|b|o)$/i) |