| Geo-Direction-Name-Spec-Chinese documentation | Contained in the Geo-Direction-Name-Spec-Chinese distribution. |
Geo::Direction::Name::Spec::Bagua - Used by Geo::Direction::Name::Spec::Chinese: Real specification class of Bagua
OHTSUKA Ko-hei <nene@kokogiko.net>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Geo-Direction-Name-Spec-Chinese documentation | Contained in the Geo-Direction-Name-Spec-Chinese distribution. |
package Geo::Direction::Name::Spec::Bagua; use warnings; use strict; use Carp; use version; our $VERSION = qv('0.0.1'); use base qw(Geo::Direction::Name::Spec); BEGIN { if ( $] >= 5.006 ) { require utf8; import utf8; } } sub devide_num { 8 } sub allowed_dev { qw(8) } sub default_dev { 8 } sub default_locale { "zh_CN" } 1; __END__