| line |
true |
false |
branch |
|
60
|
0 |
8 |
if $self->{'_type'} != 1 |
|
62
|
0 |
8 |
if $self->{'_order'} != 1 |
|
65
|
0 |
12 |
unless $key =~ /^(start|minlen|maxlen|sep|sets|end|charlen|scale)$/ |
|
80
|
0 |
8 |
if ref $value->{'sets'} ne 'HASH' |
|
89
|
1 |
7 |
if exists $value->{'start'} |
|
90
|
0 |
8 |
if exists $value->{'end'} |
|
91
|
0 |
8 |
if exists $value->{'chars'} |
|
93
|
0 |
8 |
unless defined $self->{'_sets'}{'0'} |
|
101
|
0 |
24 |
if ref $sets->{$set} ne 'ARRAY' and ref $sets->{$set} ne 'Math::String::Charset' |
|
105
|
19 |
5 |
if ref $sets->{$set} eq 'ARRAY' |
|
111
|
6 |
2 |
unless defined $self->{'_clen'} or defined $self->{'_sep'} |
|
121
|
73 |
114 |
if exists $end->{$_} |
|
126
|
6 |
2 |
unless (defined $self->{'_sep'}) |
|
133
|
0 |
19 |
if $self->{'_sets'}{$_}->charlen != $self->{'_clen'} |
|
140
|
8 |
0 |
if ($self->{'_minlen'} <= 0) { } |
|
168
|
4 |
4 |
if ($self->{'_cnum'}->is_zero) |
|
170
|
0 |
4 |
if $self->{'_minlen'} == 1 |
|
172
|
0 |
4 |
if ($self->{'_count'}[2] == 0) |
|
174
|
0 |
0 |
if $self->{'_minlen'} == 2 |
|
180
|
0 |
8 |
if $self->{'_minlen'} > $self->{'_maxlen'} |
|
207
|
0 |
12 |
if $max < 1 |
|
208
|
4 |
8 |
if $max <= $self->{'_cnt'} |
|
224
|
0 |
20 |
if exists $sets->{$j} and exists $sets->{$r} |
|
225
|
42 |
45 |
unless defined $spat->[$j] |
|
253
|
0 |
15 |
unless defined $str |
|
254
|
1 |
14 |
if $str eq '' and $self->{'_minlen'} <= 0 |
|
258
|
1 |
13 |
if (defined $self->{'_sep'}) { } |
|
261
|
0 |
1 |
if $chars[0] eq '' |
|
262
|
0 |
1 |
if $chars[-1] eq $self->{'_sep'} |
|
273
|
0 |
14 |
if scalar @chars < $self->{'_minlen'} |
|
274
|
0 |
14 |
if scalar @chars > $self->{'_maxlen'} |
|
277
|
1 |
13 |
unless defined $self->{'_start'}->map($chars[0]) |
|
278
|
1 |
12 |
if @chars == 1 |
|
282
|
1 |
11 |
if $self->{'_cnt'} < $d |
|
286
|
5 |
31 |
unless defined $$spat[$k++]->map($c) |
|
314
|
0 |
0 |
wantarray ? : |
|
325
|
0 |
0 |
wantarray ? : |
|
333
|
0 |
0 |
wantarray ? : |
|
343
|
15 |
2 |
unless ref $x |
|
344
|
0 |
17 |
unless $x->sign =~ /^[+-]$/ |
|
345
|
2 |
15 |
if ($x->is_zero) |
|
347
|
1 |
1 |
wantarray ? : |
|
351
|
5 |
10 |
if ($x <= $j) |
|
354
|
0 |
5 |
wantarray ? : |
|
366
|
0 |
10 |
if $self->{'_cnt'} < $d |
|
368
|
10 |
0 |
unless defined $s |
|
386
|
0 |
10 |
wantarray ? : |
|
398
|
2 |
22 |
if $i == 0 |
|
403
|
5 |
17 |
if (not defined $self->{'_sep'} and $i == $clen) |
|
405
|
0 |
5 |
unless exists $map->{$str} |
|
413
|
13 |
4 |
if (not defined $self->{'_sep'}) { } |
|
415
|
0 |
13 |
if $i % $clen != 0 |
|
417
|
1 |
12 |
if $self->{'_cnt'} < $c |
|
439
|
0 |
4 |
if $chars[0] eq '' |
|
440
|
0 |
4 |
if $chars[-1] eq $self->{'_sep'} |
|
442
|
0 |
4 |
if $self->{'_cnt'} < $c |
|
470
|
0 |
4 |
if $count < $self->{'_minlen'} |
|
471
|
0 |
4 |
if defined $self->{'_maxlen'} and $count > $self->{'_maxlen'} |
|
472
|
1 |
3 |
if $count == 0 |
|
474
|
1 |
2 |
if $count == 1 |
|
485
|
0 |
2 |
if $s ne '' |
|
494
|
0 |
4 |
if $count < $self->{'_minlen'} |
|
495
|
0 |
4 |
if defined $self->{'_maxlen'} and $count > $self->{'_maxlen'} |
|
496
|
1 |
3 |
if $count == 0 |
|
498
|
1 |
2 |
if $count == 1 |
|
509
|
0 |
2 |
if $s ne '' |
|
518
|
0 |
1 |
if ($str->{'_cache'} eq '') |
|
520
|
0 |
0 |
if $min <= 0 |
|
540
|
0 |
1 |
if ($str->{'_cache'} eq '') |
|
542
|
0 |
0 |
if $min >= 0 |