File Coverage

blib/lib/Math/Currency/ja_JP.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Math::Currency::ja_JP;
2             $Math::Currency::ja_JP::VERSION = '0.51';
3             # ABSTRACT: ja_JP Locale Module for Math::Currency
4              
5 2     2   17295 use utf8;
  2         8  
  2         13  
6 2     2   45 use strict;
  2         3  
  2         30  
7 2     2   5 use warnings;
  2         2  
  2         48  
8 2     2   383 use Math::Currency qw($LC_MONETARY $FORMAT);
  2         5  
  2         251  
9 2     2   19 use base qw(Exporter Math::Currency);
  2         2  
  2         273  
10              
11             our $LANG = 'ja_JP';
12              
13             $LC_MONETARY->{ja_JP} = {
14             INT_CURR_SYMBOL => 'JPY ',
15             CURRENCY_SYMBOL => '¥',
16             MON_DECIMAL_POINT => '.',
17             MON_THOUSANDS_SEP => ',',
18             MON_GROUPING => '3',
19             POSITIVE_SIGN => '',
20             NEGATIVE_SIGN => '-',
21             INT_FRAC_DIGITS => '0',
22             FRAC_DIGITS => '0',
23             P_CS_PRECEDES => '1',
24             P_SEP_BY_SPACE => '0',
25             N_CS_PRECEDES => '1',
26             N_SEP_BY_SPACE => '0',
27             P_SIGN_POSN => '4',
28             N_SIGN_POSN => '4'
29             };
30              
31             require Math::Currency::JPY;
32              
33             1;
34              
35             __END__