use strict;
use warnings;
use utf8;
use Test::More tests => 1;

{
    package Foo;

    use Number::ZipCode::JP;
    use Number::ZipCode::JP;

    sub invoke {
        my ( $self ) = @_;

        my $ins = Number::ZipCode::JP->new;
        my $result = $ins->set_number('1000001')->is_valid_number;
        return  $result;
    }
}


is(Foo::invoke(), 1);