File Coverage

lib/WebService/Shippo.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	8	8	100.0
pod			n/a
total	37	41	90.2

use strict;
use warnings;

package WebService::Shippo;
our $VERSION = '0.0.21';
# ABSTRACT: A Shippo Perl API wrapper

require WebService::Shippo::Addresses;
require WebService::Shippo::CarrierAccounts;
require WebService::Shippo::CustomsDeclarations;
require WebService::Shippo::CustomsItems;
require WebService::Shippo::Manifests;
require WebService::Shippo::Parcels;
require WebService::Shippo::Rates;
require WebService::Shippo::Refunds;
require WebService::Shippo::Shipments;
require WebService::Shippo::Transactions;
require WebService::Shippo::Config;

use boolean ':all';
use Params::Callbacks ( 'callbacks', 'callback' );
use base ( 'Exporter' );

our @EXPORT = qw(
    true
    false
    boolean
    callback
);

sub import
{
    my ( $class ) = @_;
    WebService::Shippo::Config->config;
    WebService::Shippo::Resource->api_credentials(
        @ENV{ 'SHIPPO_USER', 'SHIPPO_PASS' } )
        if $ENV{SHIPPO_USER} && !$ENV{SHIPPO_TOKEN};
    WebService::Shippo::Resource->api_key( $ENV{SHIPPO_TOKEN} )
        if $ENV{SHIPPO_TOKEN};
    goto &Exporter::import;
}

BEGIN {
    no warnings 'once';
    *api_key         = *WebService::Shippo::Resource::api_key;
    *api_credentials = *WebService::Shippo::Resource::api_credentials;
    *Shippo::        = *WebService::Shippo::;
}

1;
__END__