The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
WWW-Purolator-TrackingInfo-1.0105
River stage zero No dependents
++
/ WWW::Purolator::TrackingInfo

NAME

WWW::Purolator::TrackingInfo - access Purolator's tracking information

SYNOPSIS

    use strict;
    use warnings;
    use WWW::Purolator::TrackingInfo;

    my $t = WWW::Purolator::TrackingInfo->new;

    my $info = $t->track('320698592781')
        or die "Error: " . $t->error;

    if ( $info->{status} eq 'delivered' ) {
        print "The package has been delivered! YEY!\n";
    }
    else {
        print "Package's latest update is: $info->{history}[0]{comment}\n";
    }

DESCRIPTION

The module accesses www.purolator.com and gets tracking information for the package, using the provided PIN (tracking number, e.g. 320698592781).

CONSTRUCTOR

    my $t = WWW::Purolator::TrackingInfo->new;

Creates and returns a new WWW::Purolator::TrackingInfo object. Does not take any arguments.

METHODS/ACCESSORS

track

    my $info = $t->track('320698592781')
        or die $t->error;

Instructs the object to obtain tracking information from Purolator using a PIN. Takes one mandatory argument: Purolator's PIN for the package (or "tracking number"; years after dealing with Purolator, I'm still unclear on their terminology). On failure returns undef or an empty list, depending on the context, and the reason for failure will be available via ->error method. On success returns a hashref with the following keys/values (sample abridged data):

    {
        'status' => 'delivered'
        'pin' => '320698611680',
        'history' => [
            {
                'comment' => 'Shipping label created with reference(s): 2509543',
                'location' => 'Purolator',
                'scan_time' => '11:09:00',
                'scan_date' => '2014-01-16'
            }
        ],
    };

status

    'in transit',
    'package picked up',
    'shipping label created',
    'attention',
    'delivered',

The status value will be one of the above values, with a possible additional one 'unknown status code', though the unknown code likely would mean this module is broken. The values are self-explanatory, with exception of 'attention', which means some unforseen event has happened with the delivery and the package status requires attention.

pin

    'pin' => '320698611680',

This is the PIN/tracking number that was used to call ->track with.

history

    'history' => [
        {
            'comment' => 'Shipment delivered to MARY at: RECEPTION',
            'location' => 'Saskatoon, SK',
            'scan_time' => '10:44:00',
            'scan_date' => '2014-01-17'
        },
        {
            'comment' => 'On vehicle for delivery',
            'location' => 'Saskatoon, SK',
            'scan_time' => '09:57:00',
            'scan_date' => '2014-01-17'
        },
        {
            'comment' => 'Arrived at sort facility',
            'location' => 'Saskatoon, SK',
            'scan_time' => '06:57:00',
            'scan_date' => '2014-01-17'
        },
        {
            'comment' => 'Picked up by Purolator at  CALGARY AB ',
            'location' => 'Calgary, AB',
            'scan_time' => '15:23:00',
            'scan_date' => '2014-01-16'
        },
        {
            'comment' => 'Shipping label created with reference(s): 2509543',
            'location' => 'Purolator',
            'scan_time' => '11:09:00',
            'scan_date' => '2014-01-16'
        }
    ];

The value is an arrayref of hashrefs. Each hashref specifies a line in package's tracking history, most recent first. Each hashref contains four keys:

scan_date

    'scan_date' => '2014-01-17'

The date of this particular update.

scan_time

    'scan_time' => '15:23:00',

The time of this particular update.

location

    'location' => 'Calgary, AB',

Location of where the update happened.

comment

    'comment' => 'Shipping label created with reference(s): 2509543',

The comment/description of the update.

error

    $t->track('320698592781')
        or die $t->error;

Takes no arguments. Returns a human readable reason for why ->track method failed.

AUTHOR

'Zoffix, <'zoffix at cpan.org'> (http://haslayout.net/, http://zoffix.com/, http://zofdesign.com/)

BUGS

Please report any bugs or feature requests to bug-www-purolator-trackinginfo at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=WWW-Purolator-TrackingInfo. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc WWW::Purolator::TrackingInfo

You can also look for information at:

COPYRIGHT & LICENSE

Copyright 2009 'Zoffix, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.