NAME
    Parse::JapanesePostalCode - PostalCode Parser for �𠯫�𧋦�菜錇

SYNOPSIS
        use Parse::JapanesePostalCode;

        my $parser = Parse::JapanesePostalCode->new( file => 'KEN_ALL.csv' );
        while (my $obj = $parser->fetch_obj) {
            my @list = map { $_ ? $_ : () } ($obj->zip, $obj->pref, $obj->district, $obj->city, $obj->ward, $obj->town);
            if ($obj->has_subtown) {
                push @list, join '/', @{ $obj->subtown };
            }
            if ($obj->build) {
                my $str = $obj->build;
                $str .= $obj->floor . 'F' if $obj->floor;
                push @list, $str;
            }
        }

DESCRIPTION
    Parse::JapanesePostalCode is a feel good parser to parse to Postal Code
    files that are provided by Japan Post.

    Parse::JapanesePostalCode �胯���𠯫�𧋦�菜錇�峕�𣂷�䜘�𨰜�艾���钅�萎噶�𧞅�噡�𨰻�～�扎�怒�坿����麄�塩�怒�㻫�潦�嫘�𨰜�艾�譌�䎚�卝�㻫�潦�萸�扼�踺��

METHODS
  new
    create to parser instance.

    read from file path.

        my $parser = Parse::JapanesePostalCode->new(
            file => 'foo/bar/KEN_ALL.csv',
        );

    read from file handle.

        my $parser = Parse::JapanesePostalCode->new(
            fh => $ken_all_fh,
        );

    ignore katakana_h2z.

        my $parser = Parse::JapanesePostalCode->new(
            file => 'foo/bar/KEN_ALL.csv',
            katakana_h2z => 0,
        );

    ignore alnum_z2h.

        my $parser = Parse::JapanesePostalCode->new(
            file => 'foo/bar/KEN_ALL.csv',
            alnum_z2h => 0,
        );

  get_line
    get one line from KEN_ALL.csv.

        while (my $line = $parser->get_line) {
          say $line;
        }

    1銵諹狎�輯噯�踴�整�踺������

        07543,"97906","9790622","嚝䕘螂嚚潘�𧶏蝴嚝�","嚝䕘�嚝𠺪�痹螂嚝痹�嘅�嚝琜蔥嚚塚�𧶏�","嚚對蓿嚝痹��(嚝𧶏蓬嚚塚�頣�𠺪��232-244嚚�311嚚�312嚚�337-862嚝𠺪�痹�嘅�","蝳誩雀���","��諹�厰�∪��瓷�𤪺","瘥𥡝躼嚗��滚�嘥���𡜐�橒�鉝�頣�𡜐�䈑�𢛵��嚗橒�𡢅�㻫��嚗橒�𡢅�鉝��嚗橒�橒�𨰜�頣�矋�吔�垍𧞅�𧑐",1,1,0,0,0,0
        07543,"97906","9790622","嚝䕘螂嚚潘�𧶏蝴嚝�","嚝䕘�嚝𠺪�痹螂嚝痹�嘅�嚝琜蔥嚚塚�𧶏�","嚝�嚚喉蔆嚚殷蔔嚝�嚝痹�嘅�矋蔭嚚賂�䕘螂嚚潘�𧶏�嚝痹蔡2嚚對�痹�嘅蝦嚝矋蔭嚚賂�𠺪�嚝�嚝痹�嘅蝦嚚殷蝶嚚喉�嚚�)","蝳誩雀���","��諹�厰�∪��瓷�𤪺","�娍𨭬鈭祇𤓖��𤤿�誩雀蝚砌���笔�𣂼�𤤿惣�𤓖��瑽见���𤏪��",1,1,0,0,0,0

    �柴�����怨��㺭銵䎚�怠��𠧧�𨰻�䎚�艾���麄�剹�������麄�塩�怨�䎚�鉝�𠺶�潦�詻�𨰜�毺�鞉�栶�坿�𢛵�𨰜�整�踺��

  fetch_obj
    get one line object from KEN_ALL.csv.

        while (my $obj = $parser->fetch_obj) {
          say $obj->zip;
        }

    get_line �批�硋�𨰜�𨰜�蠘�䎚�鉝�� Parse::JapanesePostalCode::Row �扼�芥�硔�詻�扼�胯���硔�𨰜�麄�芥�硔�詻�扼�胯���坿�𢛵�𨰜�整�踺��

AUTHOR
    Kazuhiro Osawa <yappo {at} shibuya {dot} pl>

SEE ALSO
    Parse::JapanesePostalCode::Row,
    <http://www.post.japanpost.jp/zipcode/download.html>

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