Business::Shipping::UPS_Offline::RateRequest
EAS Extended Area Surcharge
DAS Delivery Area Surcharge (same as EAS)
Hash. Format:
$self->Zones() = ( 'Canada' => { 'zone_data' => [ 'low high service1 service2', '004 005 208 209', '006 010 208 209', 'Canada Canada 504 504', ] } )
- For International, it's the name of the country (e.g. 'Canada') - For Domestic, it is the first three of a zip (e.g. '986') - For Canada, it is...?
from_state only required for Offline international orders.
Increase the _total_charges by an amount.
The "Delivery Area Surcharge" is also known as "Extended Area Surcharge", but does not include special residential charges that apply to some services (air services, for example).
Note that this is different than the delivery area surcharge. It is listed as "Residential Differential" in the accessorials.csv file.
Find rate table using UPS 'type' or name at the top of the table.
Decides what unique keys will be used to locate the zone record.
* The first key ("key") is a shortened version (the zip code "98682" becomes "986") to locate the zone file and the range that it fits into. * The second key ("raw_key") is the actual key, for looking up the record in the correct zone file once it has been found.
Returns ( $key, $raw_key )
WorldWide methods use different tables for Canada
Sequential scan.
From Mastering Algorithms in Perl, modified to handle rows and my own matching specifications.
$type Type of service.
Hawaii and Alaska have special per-zipcode zone exceptions for 1da/2da.
Determines which zone (zone_name), and which zone file to use for lookup.
If this is an international order, we need to determine which state the shipper is in, then if it is east or west coast. If west, then use the first "Express" field in the zone chart. If east, then use the second.
Note: this is not an object-oriented method.
Performs some final value modification just before the submit.
Daniel Browning, db@kavod.com, http://www.kavod.com/
Copyright 2003-2011 Daniel Browning <db@kavod.com>. All rights reserved. This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. See LICENSE for more info.
To install Business::Shipping, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Business::Shipping
CPAN shell
perl -MCPAN -e shell install Business::Shipping
For more information on module installation, please visit the detailed CPAN module installation guide.