| 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
|
1 |
1 |
if (defined $self) { } |
|
109
|
0 |
1 |
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 |
120 |
unless defined $value |
|
197
|
3 |
117 |
if (ref $value eq 'HASH') { } |
|
|
13 |
104 |
elsif (ref $value) { } |
|
202
|
1 |
2 |
if defined $$self{'_set'}{'_scale'} |
|
210
|
0 |
13 |
if defined $_[0] |
|
229
|
47 |
116 |
unless defined $cs |
|
230
|
151 |
12 |
if ref($cs) =~ /^(ARRAY|HASH)$/ |
|
231
|
0 |
163 |
unless ref $cs |
|
247
|
4 |
108 |
unless $cs->is_valid($value) |
|
250
|
0 |
108 |
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'} |
|
383
|
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
|
77 |
2 |
if (defined $str) |