| blib/lib/Locale/Currency/Format.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 29 | 44 | 65.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 93 | 7 | 1 | 0 | $style == 4 && $cur->[$utf_sym] |
| 6 | 1 | 0 | $style == 16 && $cur->[$htm_sym] | |
| 4 | 2 | 0 | $style == 8 && $cur->[$com_sym] | |
| 117 | 1 | 3 | 1 | $type != 2 and $type != 1 |
| 215 | 0 | 0 | 2 | $style && grep({$style == $_;} 4, 16, 8) |
| 1 | 2 | 0 | $tmpl and not $style && grep({$style == $_;} 4, 16, 8) | |
| 235 | 1 | 1 | 0 | $1 and $5 |
| 319 | 1 | 1 | 6 | $trailing_zeroes and $precision > length $decimal |
| 334 | 0 | 2 | 6 | defined $decimal && length $decimal |
| line | l | !l | condition |
|---|---|---|---|
| 83 | 7 | 1 | $cur->[$frac_len] || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 235 | 0 | 0 | 2 | not $tmpl =~ / \A ([^#]*) # 1 - preceding symbol (may contain space) \# # followed by a # ([^#]+) # 2 - thousand separator \#{3} # followed by 3 #'s (?: # ([^#]+) # 3 - decimal separator (\#+) # 4 - fractional )* # ([^#]*) # 5 - trailing symbol (may contain space) \Z /msx or $1 and $5 |
| 257 | 1 | 0 | 1 | $1 or $5 |
| 259 | 2 | 0 | 0 | $3 || $EMPTY |
| 261 | 1 | 0 | 1 | $1 || $5 |
| 262 | 1 | 0 | 1 | $1 || $3 |