NAME
Business::Shipping::ClassInfo - ClassAttribs helper functions
VERSION
$Rev: 200 $
METHODS
classes
Returns $self->{ classes }, which is:
$self->{ classes } = { 'Business::Shipping' => { object => 'Business::Shipping=HASHREF(0x9999)', name => 'Business::Shipping' }, }
Where possible, object is an actual object from the $self object (or one of its Has_a objects).
get_classes_objects_for_classes
get_parent_class_names( $class_name )
Searches @ISA for parent classes
get_tree_class_names( $class_name )
For each Has_a Object found, search that tree too, perhaps it has parents that we haven't added yet. For example: - UPS_Online::Shipment Has_a UPS_Online::Package - Normally, we just add UPS_Online::Package::Group() ('packaging'). - What we should do is also add Package::Group() ('weight').
AUTHOR
Dan Browning <db@kavod.com>, Kavod Technologies, http://www.kavod.com.
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.