| 1 | package Geo::Direction::Name::Locale::ja; |
|---|
| 2 | |
|---|
| 3 | use warnings; |
|---|
| 4 | use strict; |
|---|
| 5 | use Carp; |
|---|
| 6 | |
|---|
| 7 | use base qw/Geo::Direction::Name::Locale/; |
|---|
| 8 | |
|---|
| 9 | BEGIN |
|---|
| 10 | { |
|---|
| 11 | if ( $] >= 5.006 ) |
|---|
| 12 | { |
|---|
| 13 | require utf8; import utf8; |
|---|
| 14 | } |
|---|
| 15 | } |
|---|
| 16 | |
|---|
| 17 | sub dir_string { |
|---|
| 18 | [ |
|---|
| 19 | '北', |
|---|
| 20 | '北微東', |
|---|
| 21 | '北北東', |
|---|
| 22 | '北東微北', |
|---|
| 23 | '北東', |
|---|
| 24 | '北東微東', |
|---|
| 25 | '東北東', |
|---|
| 26 | '東微北', |
|---|
| 27 | '東', |
|---|
| 28 | '東微南', |
|---|
| 29 | '東南東', |
|---|
| 30 | '南東微東', |
|---|
| 31 | '南東', |
|---|
| 32 | '南東微南', |
|---|
| 33 | '南南東', |
|---|
| 34 | '南微東', |
|---|
| 35 | '南', |
|---|
| 36 | '南微西', |
|---|
| 37 | '南南西', |
|---|
| 38 | '南西微南', |
|---|
| 39 | '南西', |
|---|
| 40 | '南西微西', |
|---|
| 41 | '西南西', |
|---|
| 42 | '西微南', |
|---|
| 43 | '西', |
|---|
| 44 | '西微北', |
|---|
| 45 | '西北西', |
|---|
| 46 | '北西微北', |
|---|
| 47 | '北西', |
|---|
| 48 | '北西微西', |
|---|
| 49 | '北北西', |
|---|
| 50 | '北微西', |
|---|
| 51 | ] |
|---|
| 52 | } |
|---|
| 53 | |
|---|
| 54 | 1; |
|---|
| 55 | |
|---|
| 56 | =head1 NAME |
|---|
| 57 | |
|---|
| 58 | Geo::Direction::Name::Locale::ja - Locale 'ja' class of Geo::Direction::Name's locale class. |
|---|
| 59 | |
|---|
| 60 | |
|---|
| 61 | =head1 OVERRIDE METHODS |
|---|
| 62 | |
|---|
| 63 | =over 4 |
|---|
| 64 | |
|---|
| 65 | =item * dir_string |
|---|
| 66 | |
|---|
| 67 | =back |
|---|
| 68 | |
|---|
| 69 | |
|---|
| 70 | =head1 AUTHOR |
|---|
| 71 | |
|---|
| 72 | OHTSUKA Ko-hei C<< <nene@kokogiko.net> >> |
|---|
| 73 | |
|---|
| 74 | |
|---|
| 75 | =head1 LICENCE AND COPYRIGHT |
|---|
| 76 | |
|---|
| 77 | Copyright (c) 2008, OHTSUKA Ko-hei C<< <nene@kokogiko.net> >>. All rights reserved. |
|---|
| 78 | |
|---|
| 79 | This module is free software; you can redistribute it and/or |
|---|
| 80 | modify it under the same terms as Perl itself. See L<perlartistic>. |
|---|
| 81 | |
|---|
| 82 | |
|---|
| 83 | =head1 DISCLAIMER OF WARRANTY |
|---|
| 84 | |
|---|
| 85 | BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY |
|---|
| 86 | FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN |
|---|
| 87 | OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES |
|---|
| 88 | PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER |
|---|
| 89 | EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED |
|---|
| 90 | WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE |
|---|
| 91 | ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH |
|---|
| 92 | YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL |
|---|
| 93 | NECESSARY SERVICING, REPAIR, OR CORRECTION. |
|---|
| 94 | |
|---|
| 95 | IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING |
|---|
| 96 | WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR |
|---|
| 97 | REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE |
|---|
| 98 | LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, |
|---|
| 99 | OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE |
|---|
| 100 | THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING |
|---|
| 101 | RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A |
|---|
| 102 | FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF |
|---|
| 103 | SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF |
|---|
| 104 | SUCH DAMAGES. |
|---|
| 105 | |
|---|