view release on metacpan or  search on metacpan

lib/WWW/MobileCarrierJP/Declare.pm  view on Meta::CPAN

    if ($res->is_success) {
        return decode($res->content_charset, $res->content);
    } else {
        Carp::croak($res->status_line);
    }
}

sub import {
    my $class = shift;

    strict->import;
    warnings->import;
    utf8->import;

    $class->export_to_level(1);
}

sub col {
    my ($n, @args) = @_;
    process "td:nth-child($n)", @args;
}

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;