| line |
true |
false |
branch |
|
40
|
0 |
163 |
unless defined $str |
|
41
|
7 |
156 |
if ref $str1 |
|
42
|
0 |
163 |
unless defined $str1 |
|
43
|
0 |
163 |
$_[2] ? : |
|
76
|
0 |
51 |
unless defined $val |
|
77
|
0 |
51 |
if not ref $val and $val eq $class |
|
82
|
5 |
46 |
if (ref $set and ref $set eq 'HASH' || UNIVERSAL::isa($set, 'Math::String::Charset')) |
|
86
|
5 |
0 |
if defined $set->{'_scale'} |
|
104
|
2 |
1 |
if (defined $self) { } |
|
109
|
0 |
2 |
if ref $self ne $class |
|
125
|
0 |
2 |
if (defined $self) { } |
|
130
|
0 |
0 |
if ref $self ne $class |
|
140
|
2 |
0 |
if $min <= 0 |
|
148
|
6 |
1 |
if (defined $self) { } |
|
153
|
0 |
6 |
if ref $self ne $class |
|
169
|
1 |
1 |
if (defined $self) { } |
|
174
|
0 |
1 |
if ref $self ne $class |
|
194
|
0 |
122 |
unless defined $value |
|
197
|
3 |
119 |
if (ref $value eq 'HASH') { } |
|
|
13 |
106 |
elsif (ref $value) { } |
|
203
|
1 |
2 |
if defined $self->{'_set'}{'_scale'} |
|
210
|
0 |
13 |
if defined $_[0] |
|
229
|
47 |
118 |
unless defined $cs |
|
230
|
153 |
12 |
if ref($cs) =~ /^(ARRAY|HASH)$/ |
|
231
|
0 |
165 |
unless ref $cs |
|
247
|
4 |
110 |
unless $cs->is_valid($value) |
|
250
|
0 |
110 |
unless (ref $int) |
|
265
|
0 |
174 |
if (@_ > 1) { } |
|
275
|
0 |
174 |
unless ref $x |
|
281
|
174 |
515 |
if ($k eq 'value') { } |
|
|
0 |
515 |
elsif ($ref eq 'SCALAR') { } |
|
|
0 |
515 |
elsif ($ref eq 'ARRAY') { } |
|
|
0 |
515 |
elsif ($ref eq 'HASH') { } |
|
|
174 |
341 |
elsif ($ref =~ /^Math::String::Charset/) { } |
|
|
0 |
341 |
elsif ($ref) { } |
|
359
|
0 |
241 |
unless ref $x |
|
360
|
7 |
234 |
unless $x->{'sign'} =~ /^[+-]$/ |
|
362
|
141 |
93 |
if defined $x->{'_cache'} |
|
384
|
13 |
58 |
if exists $self->{'_set'}{'_scale'} |
|
403
|
3 |
2 |
if (not ref $_[0] and $_[0] eq 'Math::String') |
|
415
|
1 |
2 |
if (not ref $_[0] and $_[0] eq 'Math::String') |
|
435
|
2 |
0 |
if (defined $x->{'_cache'}) { } |
|
445
|
0 |
0 |
if $l < $x->minlen or $l > $x->maxlen |
|
454
|
122 |
0 |
ref $_[0] ? : |
|
462
|
89 |
33 |
if (defined $str) |
|
475
|
79 |
0 |
ref $_[0] ? : |
|
483
|
76 |
3 |
if (defined $str) |