Branch Coverage

blib/lib/Text/TemplateFill.pm
Criterion Covered Total %
branch 67 126 53.1


line true false branch
86 0 0 if ($$self{'OldLocale'} ne '')
93 0 0 if defined $OldLocale
114 20 0 if defined $varref
127 0 0 defined $varref ? :
201 0 6 unless defined $$self{$_[0]}
202 0 6 unless defined $_[1]
219 10 0 unless defined $fname
240 0 10 $fname =~ m[^/] ? :
242 0 10 unless (open TMPL, "<$fn")
250 98 189 if /^\$\{#\}/
253 17 172 if (/^\$\{Calc\s+(.*)\}$/)
260 154 18 unless (/^\$\{Opt\s/)
267 0 18 unless (/^\$\{Opt\s+(\w+)\s*([^\s]+)?\s*\}/)
276 12 6 if defined $ParaDescript{$optkey}
277 6 12 if defined $$self{$optkey}
278 0 18 unless (defined $href)
284 0 6 $optval eq q[''] ? :
6 12 defined $optval ? :
307 0 10 if $$self{'StartPageTag'} eq ' ' and ${$parh;}{'StartPage'} != 0
309 0 10 if $$self{'EndPageTag'} eq ' ' and ${$parh;}{'EndPage'} != 0
337 0 4 unless $$self{'Initialised'}
339 0 4 unless defined $tag
350 4 0 if $tag ne ' ' and $tag ne ''
362 0 4 if ${$$self{'CalcVars'}{'PageLineNo'};} < 1
364 0 4 unless defined $tag
370 4 0 if ($tag ne '') { }
373 0 4 unless $blanksafter
374 4 0 if $tag ne ' ' and $tag ne ''
375 4 0 if $blanksafter
377 0 0 $$self{'EndPageSeq'} ne '' ? :
393 0 4 if ${$$self{'CalcVars'}{'PageLineNo'};} < 1
399 0 4 if defined $tag and $tag ne $$self{'EndPageTag'} and $$self{'PageLen'} > 0 and ${$$self{'CalcVars'}{'PageLineNo'};} + $#{${$$self{'Paragraphs'}{$tag};}{'Lines'};} >= $$self{'PageLen'}
414 0 18 unless (defined $para)
420 2 16 unless $$self{'Initialised'}
426 14 0 $$self{'EndPageTag'} ne '' ? :
0 14 if $$para{'EndPage'} == 0 and $$self{'PageLen'} > 0 and ${$$self{'CalcVars'}{'PageLineNo'};} + $#{$lines;} + ($$self{'EndPageTag'} ne '' ? $#{${$$self{'Paragraphs'}{$$self{'EndPageTag'}};}{'Lines'};} : 0) >= $$self{'PageLen'}
430 4 14 if (${$$self{'CalcVars'}{'PageLineNo'};} <= 0)
431 0 4 $$para{'StartPage'} == 0 ? :
432 4 0 if $$para{'StartPage'}
442 14 0 if $#{$calc;} >= 0
445 14 0 if ($$self{'Locale'} ne '')
459 14 0 if $$self{'OldLocale'} ne ''
486 0 44 if ($val =~ /^\$(\w+)\.?(\w+)?/) { }
521 0 104 unless (defined $substv)
527 12 92 if (defined $conv and $conv ne '')
528 12 0 if ($conv eq 'time') { }
0 0 elsif ($conv eq 'center') { }
530 0 12 unless defined $conv_opt
536 0 0 unless defined $conv_opt and $conv_opt =~ /^\d+/
539 0 0 if ($len < $conv_opt)
552 68 36 if (defined $format and $format ne '') { }
554 0 68 if (${$substv;} eq '' and $format =~ /[duoxegfXEGiDUOF]$/)
585 8 140 if (defined $vn) { }
588 0 8 if (not defined $$self{'Paragraphs'}{$tn}) { }
591 0 8 unless (defined($varref = $$self{'Paragraphs'}{$tn}{$vn}))
592 0 0 if ($undefOK) { }
603 39 101 if defined $$self{'CalcVars'}{$tn}
604 0 140 if defined $$para{$tn}
605 7 133 if (not defined $varref and $undefOK)
610 0 140 unless defined $varref
615 0 148 unless (defined ${$varref;})
634 0 32 if (defined $$varp{$name})
651 0 0 if (defined $$varp{$name}) { }