view release on metacpan or  search on metacpan

t/Utils.pm  view on Meta::CPAN

package t::Utils;
use strict;
use warnings;
use Test::More;

sub import {
    my $pkg = caller(0);

    strict->import();
    warnings->import();

    no strict 'refs';
    *{"${pkg}::carriers"} = \&carriers;
    *{"${pkg}::modules"} = \&modules;
}

sub carriers () { qw/EZWeb DoCoMo AirHPhone Softbank/ }
sub modules($) {
    my $modname = shift;
    my @m;
    for my $carrier (carriers()) {
        my $class = "WWW::MobileCarrierJP::${carrier}::${modname}";
        use_ok $class;
        push @m, $class;
    }
    @m;
}

1;