Business::UPS::Tracking::Element::ReferenceNumber - A reference number

# ============================================================================
package Business::UPS::Tracking::Element::ReferenceNumber;
# ============================================================================
use utf8;
use 5.0100;

use Moose;
__PACKAGE__->meta->error_class("Business::UPS::Tracking::Exception");

use Business::UPS::Tracking::Utils;

our $VERSION = $Business::UPS::Tracking::VERISON;

has 'xml' => (
    is       => 'rw',
    isa      => 'XML::LibXML::Node',
    required => 1,
    trigger  => \&_build_referencenumber,
);
has 'Code' => (
    is  => 'rw',
    isa => 'Str',
);
has 'Value' => (
    is  => 'rw',
    isa => 'Str',
);

our %DESCRIPTION = (
    '28' => 'Purchase Order No.',
    '33' => 'Model Number',
    '34' => 'Part Number',
    '35' => 'Serial Number',
    '50' => 'Department Number',
    '51' => 'Store Number',
    '54' => 'FDA Product Code',
    '55' => 'Acct. Rec. Customer Acct.',
    '56' => 'Appropriation Number',
    '57' => 'Bill of Lading Number',
    '59' => 'Invoice Number',
    '60' => 'Manifest Key Number',
    '61' => 'Dealer Order Number',
    '62' => 'Production Code',
    '63' => 'Purchase Req. Number',
    '64' => 'Salesperson Number',
    '67' => 'Transaction Ref. No.',
    'RZ' => 'RMA',
    '9V' => 'COD Number',
    'BL' => 'BL',
    'PO' => 'PO',
);


sub _build_referencenumber {
    my ( $self, $xml ) = @_;

    $self->Code( $xml->findvalue('Code') );
    $self->Value( $xml->findvalue('Value') );
    
    return;
}

sub serialize {
    my ($self) = @_;
    return $self->Value;
}

sub Description {
    my ($self) = @_;
    my $code = $self->Code;
    return $DESCRIPTION{$code}
        if (exists $DESCRIPTION{$code});
    return 'Unspecified';
}

__PACKAGE__->meta->make_immutable;
no Moose;
1;