NAME

Business::DPD - handle DPD lable generation

SYNOPSIS

use Business::DPD;
my $dpd = Business::DPD->new;
$dpd->connect_schema; 
my $label = $dpd->generate_label({
    zip             => '12555',
    country         => 'DE',
    depot           => '1090',
    serial          => '5012345678',
    service_code    => '101',    
});
say $label->tracking_number;
say $label->d_sort;

DESCRIPTION

TODO

METHODS

Public Methods

new

my $dpd = Business::DPD->new();

Perl default, Business::DPD will use the included SQLite DB and Business::DPD::DBIC::Schema. If you want to use another DB or another schema-class, you can define them via the options schema_class and dbi_connect.

my $dpd = Business::DPD->new({
    schema_class => 'Your::Schema::DPD',
    dbi_connect  => ['dbi:Pg:dbname=yourdb','dbuser','dbpasswd', { } ],
});

connect_schema

$dpd->connect_schema;

Connect to the Schema/DB specified in new.

Stores the DBIx::Class Schema in $dpd->schema.

generate_label

my $label = $dpd->generate_label({
    zip             => '12555',
    country         => 'DE',
    depot           => '1090',
    serial          => '5012345678',
    service_code    => '101',    
});

TODO

Routenfeld

* tracking number:

input: depot number (plus 5+6 stelle?), laufende nummer output: tracking number incl checksum

* routing:

input: target zip, Land, output: O-Sort, Land, Empfangsdepot, Beförderungsweg, D-Sort

* weiters:

kennzeichnung (kleingewicht, Express) Servicetext Servicecode

Lableursprung( datum/zeit, routenDB version, software)

Barcodefeld

input: target zip, tracking number, servicecode, target country number output: barcode-number incl checksum, barcode image

Sendungsinformationsfeld

input: adressdaten

needed methods

* one object for one address * required fields ** target country ** target zipcode ** laufende nummer ** depot number ** service code * semi-required ** address data * optional ** referenznummer ** auftragsnummer ** gewicht ** n of m ** template

AUTHOR

RevDev <we {at} revdev.at>

SEE ALSO

LICENSE

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

1 POD Error

The following errors were encountered while parsing the POD:

Around line 165:

Non-ASCII character seen before =encoding in 'Beförderungsweg,'. Assuming UTF-8