view release on metacpan or  search on metacpan

lib/Number/Phone/FR.pm  view on Meta::CPAN

                $level++;
            }
            $pkg2impl{$pkg} = $class;

            # Load the class
            eval "require $class; 1" or croak "$@\n";
            $class->isa(__PACKAGE__) or croak "$class is not a valid class";
        }
    } else {
        #croak "unexpected arguments for import" if @_;
        my $pkg = (caller)[0];
        croak "$class is private" unless $pkg =~ m/^Number::Phone(?:::|$)/;
        $pkg2impl{$pkg} = $class;
    }
}

#END {
#    foreach (sort keys %pkg2impl) {
#        print STDERR "# $_ => $pkg2impl{$_}\n";
#    }
#}

t/40-impl.t  view on Meta::CPAN

use Test::More tests => 5 + 1;
use Test::NoWarnings;

my @numeros = @Numeros::intl;

use Number::Phone;

sub impl_test
{
    my $class = shift;
    my $pkg = (caller)[0];
    subtest "Package $pkg => $class", sub {
        plan tests => 3;
        my $num = Number::Phone->new($numeros[0]);
        isa_ok($num, 'Number::Phone::FR');
        isa_ok($num, $class);
        is(ref $num, $class, $class);
    };
}

impl_test 'Number::Phone::FR';