| line |
true |
false |
branch |
|
135
|
138 |
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 |
306 |
unless (defined $num) |
|
218
|
14 |
292 |
unless (&looks_like_number($num)) |
|
233
|
30 |
243 |
if ($num < 0) { } |
|
242
|
17 |
256 |
if ($num == $INF or $num == -$INF) { } |
|
|
9 |
247 |
elsif (not defined($num <=> $INF)) { } |
|
251
|
23 |
224 |
if ($self->rounding_increment) { } |
|
267
|
50 |
197 |
unless (defined $frac) |
|
271
|
215 |
32 |
if (my $primary_group = $self->primary_grouping_size) |
|
278
|
215 |
16 |
unless $int =~ s/
(?
|
|
287
|
5 |
242 |
if ($int_pad > 0) |
|
292
|
2 |
245 |
if ($frac_pad > 0) { } |
|
|
100 |
145 |
elsif ($frac_pad < 0) { } |
|
302
|
162 |
85 |
if (CORE::length $frac) |
|
306
|
9 |
238 |
if ($self->numbering_system ne 'latn') |
|
334
|
71 |
31 |
if (not defined $primary) { } |
|
|
6 |
25 |
elsif ($primary == 0) { } |
|
|
4 |
21 |
elsif ($primary == $secondary) { } |
|
350
|
80 |
22 |
unless (/ \. /x) |
|
354
|
102 |
0 |
unless ($self->_has_init_arg('minimum_integer_digits')) |
|
359
|
42 |
60 |
if ($primary) { } |
|
363
|
19 |
23 |
if ($secondary) { } |
|
381
|
22 |
80 |
if (my($max, $min) = / \. ( ( [0-9]* ) \#* ) /x) { } |
|
390
|
102 |
0 |
unless ($self->_has_init_arg('rounding_increment')) |
|
391
|
102 |
0 |
if (my($round_inc) = / (
(?: [1-9] [0-9,]* | 0 ) # integer
(?= \. | $ )
(?: \. [0-9]* [1-9] )? # fraction
) /x) { } |
|
424
|
1 |
5 |
unless defined $num |
|
438
|
2 |
27 |
unless defined $num |