view release on metacpan or  search on metacpan

t/testlib.pm  view on Meta::CPAN

use warnings;
use 5.010;
no if $] >= 5.017004, warnings => qw(experimental::smartmatch);

use Business::UPS::Tracking;

sub import {
    my $class  = shift;
    my $caller = caller;

    strict->import;
    warnings->import;
    feature->import(':5.10.0');

    no strict 'refs';
    *{ $caller . '::tracking' }    = \&tracking;
    *{ $caller . '::testrequest' } = \&testrequest;
    *{ $caller . '::testcheck' } = \&testcheck;
}

sub tracking {