File Coverage

blib/lib/Geography/JapanesePrefectures.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod	0	5	0.0
total	48	53	90.5

package Geography::JapanesePrefectures;
use strict;
use warnings;
use 5.008001;
our $VERSION = '0.11';

use Geography::JapanesePrefectures::Unicode;
use Carp   ();
use Encode ();

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__