File Coverage

blib/lib/Net/TrackIT.pm

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

# $Id: TrackIT.pm,v 1.1.1.1 2006/11/28 22:09:18 dtikhonov Exp $
#
# This module is an interface to DHL's TrackIT interface.
#
# Author: Dmitri Tikhonov
# Date: November 28, 2006

package Net::TrackIT;

use strict;
use warnings;

our $VERSION = '0.01';

use HTTP::Request;
use LWP::UserAgent;
use XML::Simple qw(XMLin);

sub new {
    my $class = shift;

    bless {
        # This can be overridden, obviously.
        URI => 'https://ecommerce.airborne.com/APILanding.asp',

        # You can use this to test before getting access to the
        # production tracking database.
        # URI => 'https://ecommerce.airborne.com/APILandingTest.asp',

        @_,
    }, ref($class) || $class;
}

sub track {
    my ($self, $number) = @_;

    my $req = HTTP::Request->new(
        'POST', $self->URI, undef, $self->_req_xml($number),
    );
    my $resp = $self->_ua->request($req);

    unless ($resp->is_success) {
        die "Connection error: " . $resp->status_line;
    }

    XMLin($resp->content);
}

sub _ua {
    my $self = shift;
    my %opts;

    if ('HASH' eq ref($self->{lwp_options})) {
        %opts = %{$self->{lwp_options}};
    }

    LWP::UserAgent->new(
        agent => ref($self) . '/' . $self->VERSION,
        %opts,
    );
}

sub _req_xml {
    my ($self, $tracking_number) = @_;

    # Simple but effective way of constructing XML requests.
    my $xml=<<'XML';



        %s
        %s



            %s



XML

    sprintf($xml, $self->ID, $self->password, $tracking_number);
}

# Auto-generate accessors/mutators:
for my $method (qw(URI ID password)) {
    no strict 'refs';

    *{$method} = sub {
        my $self = shift;
        if (@_) {
            $self->{$method} = shift;
        }
        return $self->{$method};
    };
}

1;

__END__