Geography::JapanesePrefectures - Japanese Prefectures Data.

Geography-JapanesePrefectures documentation Contained in the Geography-JapanesePrefectures distribution.

Index

Code Index:

NAME

Top

Geography::JapanesePrefectures - Japanese Prefectures Data.

DESCRIPTION

Top

This module is deprecated.do not use directly. You should call Geography::JapanesePrefectures::Unicode instead of this.

AUTHOR

Top

Tokuhiro Matsuno <tokuhirom@gmail.com>

SEE ALSO

Top

http://ja.wikipedia.org/wiki/JIS_X_0401#.E9.83.BD.E9.81.93.E5.BA.9C.E7.9C.8C.E3.82.B3.E3.83.BC.E3.83.89

LICENSE

Top

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Geography-JapanesePrefectures documentation Contained in the Geography-JapanesePrefectures distribution. 
package Geography::JapanesePrefectures;
use strict;
use warnings;
use 5.008001;
our $VERSION = '0.09';

use Geography::JapanesePrefectures::Unicode;
use Carp   ();
use Encode ();
use List::MoreUtils qw(uniq);

sub prefectures {
    my $self = shift;
    return
      map { Encode::encode_utf8($_) }
      Geography::JapanesePrefectures::Unicode->prefectures();
}

sub regions {
    my $self = shift;
    return
      map { Encode::encode_utf8($_) }
      Geography::JapanesePrefectures::Unicode->regions();
}

sub prefectures_in {
    my ( $self, $region ) = @_;
    return
      map { Encode::encode_utf8($_) }
      Geography::JapanesePrefectures::Unicode->prefectures_in(
        Encode::decode_utf8($region) );
}

sub prefectures_id {
    my ( $self, $prefecture ) = @_;
    return Geography::JapanesePrefectures::Unicode->prefectures_id(
        Encode::decode_utf8($prefecture) );
}

sub prefectures_infos {
    my $infos = Geography::JapanesePrefectures::Unicode->prefectures_infos;
    my @ret;
    for my $info (@$infos) {
        my %row;
        while (my ($key, $val) = each %$info) {
            $row{$key} = Encode::encode_utf8($val);
        }
        push @ret, \%row;
    }
    return \@ret;
}

1;
__END__