perl ./once.pl is ok. perl ./twice.pl is not ok. Use 0.20110401 of Number::Phone::JP.

Bar.pm

package Bar;

use strict;
use warnings;
use utf8;

use Number::Phone::JP;

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

    my $ins = Number::Phone::JP->new;
    my $result = $ins->set_number('03-5321-1111')->is_valid_number;
    warn scalar keys %Number::Phone::JP::TEL_TABLE;
    return  $result;
}

1;

Foo.pm

package Foo;

use strict;
use warnings;
use utf8;

use Number::Phone::JP;

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

    my $ins = Number::Phone::JP->new;
    my $result = $ins->set_number('03-5321-1111')->is_valid_number;
    warn scalar keys %Number::Phone::JP::TEL_TABLE;
    return  $result;
}

1;

once.pl

use strict;
use warnings;
use utf8;

use Foo;

my $result = Foo::invoke();
warn $result;

1;

twice.pl

use strict;
use warnings;
use utf8;

use Foo;
use Bar;

my $result = Foo::invoke();
warn $result;

my $result2 = Bar::invoke();
warn $result2;

1;