| line |
true |
false |
branch |
|
62
|
0 |
8 |
if $self->{'_type'} != 1 |
|
64
|
0 |
8 |
if $self->{'_order'} != 1 |
|
67
|
0 |
12 |
unless $key =~ /^(start|minlen|maxlen|sep|sets|end|charlen|scale)$/ |
|
82
|
0 |
8 |
if ref $value->{'sets'} ne 'HASH' |
|
91
|
1 |
7 |
if exists $value->{'start'} |
|
92
|
0 |
8 |
if exists $value->{'end'} |
|
93
|
0 |
8 |
if exists $value->{'chars'} |
|
95
|
0 |
8 |
unless defined $self->{'_sets'}{'0'} |
|
103
|
0 |
24 |
if ref $sets->{$set} ne 'ARRAY' and ref $sets->{$set} ne 'Math::String::Charset' |
|
107
|
19 |
5 |
if ref $sets->{$set} eq 'ARRAY' |
|
113
|
6 |
2 |
unless defined $self->{'_clen'} or defined $self->{'_sep'} |
|
123
|
73 |
114 |
if exists $end->{$_} |
|
128
|
6 |
2 |
unless (defined $self->{'_sep'}) |
|
135
|
0 |
19 |
if $self->{'_sets'}{$_}->charlen != $self->{'_clen'} |
|
142
|
8 |
0 |
if ($self->{'_minlen'} <= 0) { } |
|
170
|
4 |
4 |
if ($self->{'_cnum'}->is_zero) |
|
172
|
0 |
4 |
if $self->{'_minlen'} == 1 |
|
174
|
0 |
4 |
if ($self->{'_count'}[2] == 0) |
|
176
|
0 |
0 |
if $self->{'_minlen'} == 2 |
|
182
|
0 |
8 |
if $self->{'_minlen'} > $self->{'_maxlen'} |
|
209
|
0 |
12 |
if $max < 1 |
|
210
|
4 |
8 |
if $max <= $self->{'_cnt'} |
|
226
|
0 |
20 |
if exists $sets->{$j} and exists $sets->{$r} |
|
227
|
42 |
45 |
unless defined $spat->[$j] |
|
255
|
0 |
15 |
unless defined $str |
|
256
|
1 |
14 |
if $str eq '' and $self->{'_minlen'} <= 0 |
|
259
|
1 |
13 |
if (defined $self->{'_sep'}) { } |
|
262
|
0 |
1 |
if $chars[0] eq '' |
|
263
|
0 |
1 |
if $chars[-1] eq $self->{'_sep'} |
|
274
|
0 |
14 |
if scalar @chars < $self->{'_minlen'} |
|
275
|
0 |
14 |
if scalar @chars > $self->{'_maxlen'} |
|
278
|
1 |
13 |
unless defined $self->{'_start'}->map($chars[0]) |
|
279
|
1 |
12 |
if @chars == 1 |
|
283
|
1 |
11 |
if $self->{'_cnt'} < $d |
|
287
|
5 |
31 |
unless defined $$spat[$k++]->map($c) |
|
315
|
0 |
0 |
wantarray ? : |
|
326
|
0 |
0 |
wantarray ? : |
|
334
|
0 |
0 |
wantarray ? : |
|
344
|
15 |
2 |
unless ref $x |
|
345
|
0 |
17 |
unless $x->sign =~ /^[+-]$/ |
|
346
|
2 |
15 |
if ($x->is_zero) |
|
348
|
1 |
1 |
wantarray ? : |
|
352
|
5 |
10 |
if ($x <= $j) |
|
355
|
0 |
5 |
wantarray ? : |
|
367
|
0 |
10 |
if $self->{'_cnt'} < $d |
|
369
|
10 |
0 |
unless defined $s |
|
387
|
0 |
10 |
wantarray ? : |
|
399
|
2 |
22 |
if $i == 0 |
|
404
|
5 |
17 |
if (not defined $self->{'_sep'} and $i == $clen) |
|
406
|
0 |
5 |
unless exists $map->{$str} |
|
414
|
13 |
4 |
if (not defined $self->{'_sep'}) { } |
|
416
|
0 |
13 |
if $i % $clen != 0 |
|
418
|
1 |
12 |
if $self->{'_cnt'} < $c |
|
440
|
0 |
4 |
if $chars[0] eq '' |
|
441
|
0 |
4 |
if $chars[-1] eq $self->{'_sep'} |
|
443
|
0 |
4 |
if $self->{'_cnt'} < $c |
|
471
|
0 |
4 |
if $count < $self->{'_minlen'} |
|
472
|
0 |
4 |
if defined $self->{'_maxlen'} and $count > $self->{'_maxlen'} |
|
473
|
1 |
3 |
if $count == 0 |
|
475
|
1 |
2 |
if $count == 1 |
|
486
|
0 |
2 |
if $s ne '' |
|
495
|
0 |
4 |
if $count < $self->{'_minlen'} |
|
496
|
0 |
4 |
if defined $self->{'_maxlen'} and $count > $self->{'_maxlen'} |
|
497
|
1 |
3 |
if $count == 0 |
|
499
|
1 |
2 |
if $count == 1 |
|
510
|
0 |
2 |
if $s ne '' |
|
519
|
0 |
1 |
if ($str->{'_cache'} eq '') |
|
521
|
0 |
0 |
if $min <= 0 |
|
541
|
0 |
1 |
if ($str->{'_cache'} eq '') |
|
543
|
0 |
0 |
if $min >= 0 |