File Coverage

blib/lib/Geo/Postcodes/JP.pm

Criterion	Covered	Total	%
statement	12	32	37.5
branch	0	4	0.0
condition			n/a
subroutine	4	7	57.1
pod	2	3	66.6
total	18	46	39.1

package Geo::Postcodes::JP;

use warnings;
use strict;
our $VERSION = '0.014';


use Geo::Postcodes::JP::DB;
use utf8;

sub new
{
    my ($package, %inputs) = @_;
    my $db_file = $inputs{db_file};
    my $object = {};
    $object->{db} = Geo::Postcodes::JP::DB->new (%inputs);
    return bless $object;
}

sub postcode_to_address
{
    my ($object, $postcode) = @_;
    # Remove non-digits
    $postcode =~ s/\D//g;
    my $addresses = $object->{db}->lookup_postcode ($postcode);
    return $addresses;
}

sub printed_address
{
    my ($object, $address) = @_;
    my $o = '';
#    $o .= "〒" . $address->{postcode} . "\n";
    $o .= $address->{ken_kanji} . "\n";
    $o .= $address->{city_kanji} . "\n";
    $o .= $address->{address_kanji};
    if ($address->{street_number}) {
        $o .= $address->{street_number}
    }
    $o .= "\n";
    if ($address->{jigyosyo_kanji}) {
        $o .= $address->{jigyosyo_kanji} . "\n";
    }
    return $o;
}

1;

__END__