view release on metacpan or  search on metacpan

lib/Business/DPD.pm  view on Meta::CPAN

use strict;
use warnings;
use 5.010;

use version; our $VERSION = version->new('0.22');

use parent qw(Class::Accessor::Fast);
use Business::DPD::DBIC;
use Business::DPD::Label;
use Carp;
use Scalar::Util 'weaken';
use DateTime;

__PACKAGE__->mk_accessors(qw(schema schema_class dbi_connect _iso7064_mod37_36_checksum_map originator_address));

=head1 NAME

Business::DPD - handle DPD label generation

=head1 SYNOPSIS

lib/Business/DPD.pm  view on Meta::CPAN

}

sub set_originator_address {
    my ($self, $options) = @_;
    $self->originator_address(Business::DPD::Address->new(
        $self,
        $options,
    ));

    # prevent circular reference
    weaken($self->originator_address->{_dpd});
}

1;

__END__

=head1 TO GENERATE DPD ROUTE DATABASE

    cd Business-DPD
    mkdir route-db