Menno Blom
and 1 contributors

# NAME

Business::TNTPost::NL - Calculate Dutch (TNT Post) shipping costs

# SYNOPSIS

``````  use Business::TNTPost::NL;

\$tnt->country('DE');
\$tnt->weight('534');
\$tnt->large(1);
\$tnt->priority(1);
\$tnt->tracktrace(1);
\$tnt->register(1);

my \$costs = \$tnt->calculate or die \$Business::TNTPost::NL::ERROR;``````

or

``````  use Business::TNTPost::NL;

my \$costs = \$tnt->calculate(
country    =>'DE',
weight     => 534,
large      => 1,
tracktrace => 1,
register   => 1,

# DESCRIPTION

This module calculates the shipping costs for the Dutch TNT Post, based on country, weight and priority shipping (or not), etc.

The shipping cost information is based on 'Tarieven Januari 2011'.

It returns the shipping costs in euro or undef (which usually means the parcel is heavier than the maximum allowed weight; check `\$Business::TNTPost::NL::ERROR`).

## METHODS

The following methods can be used

### new

`new` creates a new `Business::TNTPost::NL` object. No more, no less.

### country

Sets the country (ISO 3166, 2-letter country code) and returns the zone number used by TNT Post (or 0 for The Netherlands (NL)).

This value is mandatory for the calculations.

Note that the reserved IC has been used for the Canary Islands. This has not been adopted by ISO 3166 yet. The Channel Islands are completely ignored due to a lack of a code.

### calculate

Method to calculate the actual shipping cost based on the input (see methods above). These options can also be passed straight in to this method (see SYNOPSIS).

Two settings are mandatory: country and weight. The rest are given a default value that will be used unless told otherwise.

Returns the shipping costs in euro, or undef (see \$Business::TNTPost::NL::ERROR in that case).

### _generate_path

Internal method to create the path to walk through the pricing table. Don't call this, use calculate instead.

### _pointer_to_element

Blame merlyn for this internal method. It's using List::Util to "grep" the information needed.

Don't call this, use calculate instead.

### weight

Sets and/or returns the weight of the parcel in question in grams.

This value is mandatory for the calculations.

### large

Sets and/or returns the value of this option. Defaults to undef (meaning: the package will fit through the mail slot).

### tracktrace

Sets and/or returns the value of this options. Defaults to undef (meaning: no track & trace feature wanted). When a parcel destined for abroad weighs over 2 kilograms, default is 1, while over 2kg it's not even optional anymore.

### register

Sets and/or returns the value of this options. Defaults to undef (meaning: parcel is not registered (Dutch: aangetekend)).

### machine

Sets and/or returns the value of this options. Defaults to undef (meaning: stamps will be used, not the machine (Dutch: frankeermachine)).

Only interesting for destinies within NL. Note that "Pakketzegel AVP" and "Easystamp" should also use this option.

# CAVEAT

The Dutch postal agency (TNT Post) uses many, many, many various ways for you to ship your parcels. Some of them are included in this module, but a lot of them not (maybe in the future? Feel free to patch ;-)

This module handles the following shipping ways (page numbers refer to the TNT Post booklet (sorry, all in Dutch)).

'Brieven' and 'Pakketten' either paid by 'frankeermachine'. For both, 'aangetekend' is optional. The pagenumbers used: 18, 19, 20, 21.

These should be the most commom methods of shipment.

# AUTHOR

Menno Blom, <blom@cpan.org>, http://menno.b10m.net/perl/

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

The full text of the license can be found in the LICENSE file included with this module.