| line |
true |
false |
branch |
|
135
|
140 |
106 |
if (my $attributes = $cache->{'attribute'}{$input_pattern} || $cache->{'pattern'}{$input_pattern} && $cache->{'attribute'}{$cache->{'pattern'}{$input_pattern}[0]}) |
|
174
|
102 |
9 |
if (defined $nonquoted) { } |
|
|
9 |
0 |
elsif (defined $quoted) { } |
|
175
|
102 |
0 |
if (not defined $num_subpattern and $nonquoted =~ /
^ ( .*? ) # pre\342\200\223number pattern
( (?: \* \X )? [\@#0-9,.]+ ) # number pattern
( .* ) $ # post\342\200\223number pattern
/x) { } |
|
213
|
6 |
314 |
unless (defined $num) |
|
218
|
14 |
300 |
unless (&looks_like_number($num)) |
|
233
|
30 |
251 |
if ($num < 0) { } |
|
242
|
17 |
264 |
if ($num == $INF or $num == -$INF) { } |
|
|
9 |
255 |
elsif (not defined($num <=> $INF)) { } |
|
251
|
23 |
232 |
if ($self->rounding_increment) { } |
|
267
|
50 |
205 |
unless (defined $frac) |
|
272
|
96 |
159 |
if ($primary_group and $primary_group + $self->minimum_grouping_digits <= CORE::length $int) |
|
282
|
96 |
16 |
unless $int =~ s/
(?
|
|
291
|
5 |
250 |
if ($int_pad > 0) |
|
296
|
2 |
253 |
if ($frac_pad > 0) { } |
|
|
108 |
145 |
elsif ($frac_pad < 0) { } |
|
306
|
162 |
93 |
if (CORE::length $frac) |
|
310
|
9 |
246 |
if ($self->numbering_system ne 'latn') |
|
338
|
71 |
31 |
if (not defined $primary) { } |
|
|
6 |
25 |
elsif ($primary == 0) { } |
|
|
4 |
21 |
elsif ($primary == $secondary) { } |
|
354
|
80 |
22 |
unless (/ \. /x) |
|
358
|
102 |
0 |
unless ($self->_has_init_arg('minimum_integer_digits')) |
|
363
|
42 |
60 |
if ($primary) { } |
|
367
|
19 |
23 |
if ($secondary) { } |
|
385
|
22 |
80 |
if (my($max, $min) = / \. ( ( [0-9]* ) \#* ) /x) { } |
|
394
|
102 |
0 |
unless ($self->_has_init_arg('rounding_increment')) |
|
395
|
102 |
0 |
if (my($round_inc) = / (
(?: [1-9] [0-9,]* | 0 ) # integer
(?= \. | $ )
(?: \. [0-9]* [1-9] )? # fraction
) /x) { } |
|
428
|
1 |
5 |
unless defined $num |
|
442
|
2 |
27 |
unless defined $num |