File Coverage

blib/lib/Business/UPS/Tracking/Exception.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

# ============================================================================
package Business::UPS::Tracking::Exception;
# ============================================================================
use utf8;
use 5.0100;

use strict;
use warnings;

use Exception::Class(
    'Business::UPS::Tracking::X'    => {
        description   => 'Basic error'
    },
    'Business::UPS::Tracking::X::HTTP' => {
        isa           => 'Business::UPS::Tracking::X',
        description   => 'HTTP error',
        fields        => [qw(http_response request)]
    },
    'Business::UPS::Tracking::X::UPS'  => {
        isa           => 'Business::UPS::Tracking::X',
        description   => 'UPS error',
        fields        => [qw(code severity request context)]
    },
    'Business::UPS::Tracking::X::XML'  => {
        isa           => 'Business::UPS::Tracking::X',
        description   => 'Malformed response xml',
        fields        => [qw(xml)]
    },
#    'Business::UPS::Tracking::X::CLASS'  => {
#        isa           => 'Business::UPS::Tracking::X',
#        description   => 'Class error',
#        fields        => [qw(method depth evaltext sub_name last_error sub is_require has_args)],
#    },
);

1;