line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package CLDR::Number::Format::Decimal; |
2
|
|
|
|
|
|
|
|
3
|
13
|
|
|
13
|
|
189
|
use v5.8.1; |
|
13
|
|
|
|
|
45
|
|
4
|
13
|
|
|
13
|
|
62
|
use utf8; |
|
13
|
|
|
|
|
26
|
|
|
13
|
|
|
|
|
131
|
|
5
|
13
|
|
|
13
|
|
439
|
use Carp; |
|
13
|
|
|
|
|
26
|
|
|
13
|
|
|
|
|
1074
|
|
6
|
|
|
|
|
|
|
|
7
|
13
|
|
|
13
|
|
64
|
use Moo; |
|
13
|
|
|
|
|
25
|
|
|
13
|
|
|
|
|
93
|
|
8
|
13
|
|
|
13
|
|
4727
|
use namespace::clean; |
|
13
|
|
|
|
|
19
|
|
|
13
|
|
|
|
|
130
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
our $VERSION = '0.16'; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
with qw( CLDR::Number::Role::Format ); |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
has _pattern_type => ( |
15
|
|
|
|
|
|
|
is => 'ro', |
16
|
|
|
|
|
|
|
default => 'decimal', |
17
|
|
|
|
|
|
|
); |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
sub BUILD {} |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
sub format { |
22
|
156
|
|
|
156
|
1
|
15936
|
my ($self, $num) = @_; |
23
|
|
|
|
|
|
|
|
24
|
156
|
|
|
|
|
486
|
$num = $self->_validate_number(format => $num); |
25
|
156
|
100
|
|
|
|
329
|
return undef unless defined $num; |
26
|
|
|
|
|
|
|
|
27
|
155
|
|
|
|
|
451
|
return $self->_format_number($num); |
28
|
|
|
|
|
|
|
} |
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
1; |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
__END__ |