NAME

Business::Shipping::USPS_Online::Package

METHODS

container

Default 'None'.

size

Default 'Regular'.

machinable

Default 'False'.

mail_type

Default 'Package'.

pounds

ounces

weight

Overrides the standard weight definition so that it can correctly set pounds & ounces.

set_lbs_oz

Set pounds and ounces. Converts from fractional pounds.

lbs_oz_to_weight

Converts pounds + ounces to fractional weight. Returns weight. , =cut

sub lbs_oz_to_weight { my ($self) = @_;

    trace '()';

    my $pounds = $self->pounds || 0;
    my $ounces = $self->ounces || 0;
    my $fractional_pounds = $ounces ? ($ounces / 16) : 0;
    my $weight = ($pounds + $fractional_pounds);

    return $weight;
}

__END__

AUTHOR

Daniel Browning, db@kavod.com, http://www.kavod.com/

COPYRIGHT AND LICENCE

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.

Business::Shipping::USPS_Online::Package - Business::Shipping::USPS_Online::Package documentation

Index