| line |
true |
false |
branch |
|
158
|
0 |
11 |
unless defined $precision |
|
160
|
11 |
0 |
unless defined $scale |
|
197
|
0 |
67 |
unless @_ == 1 or @_ == 2 |
|
199
|
0 |
67 |
unless ref $this |
|
204
|
30 |
37 |
if (@_) |
|
206
|
0 |
30 |
if defined $value and $value eq '' |
|
216
|
0 |
30 |
if (length($before) + length($after) > $precision) { } |
|
|
0 |
30 |
elsif (length $after > $scale) { } |
|
221
|
19 |
11 |
if defined $value |
|
252
|
0 |
0 |
unless @_ == 1 |
|
254
|
0 |
0 |
unless ref $this |
|
302
|
0 |
41 |
unless @_ == 1 or @_ == 2 |
|
304
|
0 |
41 |
unless ref $this |
|
309
|
11 |
30 |
if (@_) |
|
311
|
0 |
11 |
if not defined $precision or $precision eq '' |
|
312
|
0 |
11 |
if $precision < 0 |
|
317
|
0 |
11 |
if (defined $value) |
|
319
|
0 |
0 |
if (length $value > $precision) |
|
362
|
0 |
41 |
unless @_ == 1 or @_ == 2 |
|
364
|
0 |
41 |
unless ref $this |
|
369
|
11 |
30 |
if (@_) |
|
371
|
0 |
11 |
if not defined $scale or $scale eq '' |
|
372
|
0 |
11 |
if $scale < 0 |
|
377
|
0 |
11 |
if (defined $value) |
|
378
|
0 |
0 |
if ($value =~ /^\d*\.(\d*)$/) |
|
379
|
0 |
0 |
if (length $1 > $scale) |
|
417
|
19 |
22 |
if (defined $value) |
|
418
|
19 |
0 |
if ($value =~ /^[+-]?(\d*)\.?(\d*)$/) { } |