File Coverage

blib/lib/CLDR/Number/Format/Decimal.pm
Criterion Covered Total %
statement 18 18 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 27 27 100.0


line stmt bran cond sub pod time code
1             package CLDR::Number::Format::Decimal;
2              
3 13     13   263 use v5.8.1;
  13         47  
4 13     13   74 use utf8;
  13         23  
  13         104  
5 13     13   311 use Carp;
  13         19  
  13         1124  
6              
7 13     13   89 use Moo;
  13         27  
  13         100  
8 13     13   5066 use namespace::clean;
  13         31  
  13         123  
9              
10             our $VERSION = '0.15';
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 148     148 1 13592 my ($self, $num) = @_;
23              
24 148         504 $num = $self->_validate_number(format => $num);
25 148 100       310 return undef unless defined $num;
26              
27 147         409 return $self->_format_number($num);
28             }
29              
30             1;
31              
32             __END__