——=head1 NAME
Business::Shipping::Template::Shipment
=head1 VERSION
$Rev: 184 $ $Date: 2004-09-16 19:34:19 -0700 (Thu, 16 Sep 2004) $
=head1 METHODS
=over 4
=cut
$VERSION
=
do
{
my
$r
=
q$Rev: 184 $
;
$r
=~ /\d+/; $&; };
use
strict;
use
warnings;
use
Class::MethodMaker 2.0
[
new
=> [ {
-hash
=> 1 },
'new'
],
array
=> [ {
-type
=>
'Business::Shipping::Template::Package'
},
'packages'
],
scalar
=> [ {
-static
=> 1,
-default
=>
'packages=>Business::Shipping::Template::Package'
},
'Has_a'
],
];
1;
__END__
=back
=head1 AUTHOR
Dan Browning E<lt>F<db@kavod.com>E<gt>, Kavod Technologies, L<http://www.kavod.com>.
=head1 COPYRIGHT AND LICENCE
Copyright (c) 2003-2004 Kavod Technologies, Dan Browning. 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.
=cut