Branch Coverage

blib/lib/Fortran/F90Format.pm
Criterion Covered Total %
branch 0 148 0.0


line true false branch
23 0 0 unless $opt{'fmt'}
25 0 0 if ($$self{'for_fmt'} ne '*')
34 0 0 if ($$self{'for_fmt'} eq '*') { }
40 0 0 wantarray ? :
47 0 0 if ($f =~ /^(\'|\").+(\'|\")$/) { }
0 0 elsif ($f =~ /^(\d+)(H)/i) { }
0 0 elsif ($f =~ /^(\p{Letter})+$/) { }
0 0 elsif ($f =~ /^(\p{Letter})+(\d+)$/) { }
0 0 elsif ($f =~ /^(\p{Letter})+(\d+)\.(\d+)$/) { }
0 0 elsif ($f =~ /^(\p{Letter})+(\d+)\.(\d+)(E|e)(\d+)$/) { }
0 0 elsif ($f =~ /^(\d+)(\p{Letter})+$/) { }
0 0 elsif ($f =~ /^(\d+)(\p{Letter})+(\d+)$/) { }
0 0 elsif ($f =~ /^(\d+)(\p{Letter})+(\d+)\.(\d+)$/) { }
0 0 elsif ($f =~ /^(\d+)(\p{Letter})+(\d+)\.(\d+)(E|e)(\d+)$/) { }
98 0 0 unless $int
99 0 0 if ($frac == 0 and not $int)
104 0 0 if ($r < 0)
106 0 0 if $fn[$#fn] >= 5
117 0 0 $1 eq ' ' ? :
124 0 0 if $int and $e_d_s eq '-'
125 0 0 if $int and $e_d_s eq '+'
127 0 0 if ($$h{'e'}) { }
0 0 elsif ($exp <= 99) { }
0 0 elsif (99 < $exp and $exp <= 999) { }
128 0 0 if ($exp <= 10 ** $$h{'e'} - 1)
140 0 0 if $fn[$#fn] >= 5
149 0 0 if int $val != $val
151 0 0 $val < 0 ? :
156 0 0 if (not $d) { }
157 0 0 if ($val) { }
160 0 0 if ($d eq '') { }
169 0 0 if ($d > $w or length "$sign$int" > $w)
183 0 0 if ($$h{'w'}) { }
194 0 0 if ($$self{'for_fmt'} eq '*')
200 0 0 if ($ed eq 'X') { }
0 0 elsif (exists $$f{'str'}) { }
205 0 0 if ($ed eq 'A') { }
0 0 elsif ($ed eq 'I') { }
0 0 elsif ($ed eq 'F') { }
0 0 elsif ($ed eq 'E' or $ed eq 'D') { }
214 0 0 if $i++ > $#vals
230 0 0 if ($c eq q['] || $c eq '"' and not $t) { }
0 0 elsif ("$t$c" =~ /^\d+$/ and $chars[0] =~ /H/i) { }
0 0 elsif ($c eq '(') { }
0 0 elsif ($c eq ')') { }
0 0 elsif ($c eq ',') { }
235 0 0 @chars ? :
239 0 0 if (not @rep) { }
0 0 elsif (@tok) { }
240 0 0 if $t
242 0 0 if $t
250 0 0 if (not @rep) { }
0 0 elsif (@tok) { }
257 0 0 unless ($t)
263 0 0 if $t
271 0 0 if (not @rep) { }
273 0 0 if $t
275 0 0 if $t
279 0 0 if (not @rep) { }
0 0 elsif (@tok) { }
280 0 0 if $t
282 0 0 if $t
286 0 0 if $c ne ' '
289 0 0 if $t
305 0 0 if ($f =~ /^(\'|\").*(\'|\")$/) { }
0 0 elsif ($f =~ /^\d+[H]/i) { }
319 0 0 if ($d =~ /(A|B|D|E|F|G|Q|I|L|O|Z)/i) { }
0 0 elsif ($d =~ /X/i) { }
320 0 0 if $w
321 0 0 if not $w and uc $d eq 'A'
342 0 0 if $val =~ /\.(true|false)\./i
369 0 0 if $nv
374 0 0 !$sep && $c eq ',' ? :
375 0 0 if $ok