1package Math::Currency::ja_JP; 2$Math::Currency::ja_JP::VERSION = '0.52'; 3# ABSTRACT: ja_JP Locale Module for Math::Currency 4 5use utf8; 6use strict; 7use warnings; 8use Math::Currency qw($LC_MONETARY $FORMAT); 9use base qw(Exporter Math::Currency); 10 11our $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 31require Math::Currency::JPY; 32 331; 34 35__END__ 36 37=pod 38 39=head1 NAME 40 41Math::Currency::ja_JP - ja_JP Locale Module for Math::Currency 42 43=head1 VERSION 44 45version 0.52 46 47=head1 SOURCE 48 49The development version is on github at L<http://github.com/mschout/perl-math-currency> 50and may be cloned from L<git://github.com/mschout/perl-math-currency.git> 51 52=head1 BUGS 53 54Please report any bugs or feature requests to bug-math-currency@rt.cpan.org or through the web interface at: 55 http://rt.cpan.org/Public/Dist/Display.html?Name=Math-Currency 56 57=head1 AUTHOR 58 59Michael Schout <mschout@cpan.org> 60 61=head1 COPYRIGHT AND LICENSE 62 63This software is copyright (c) 2001 by John Peacock <jpeacock@cpan.org>. 64 65This is free software; you can redistribute it and/or modify it under 66the same terms as the Perl 5 programming language system itself. 67 68=cut 69