NAME

Business::Shipping::ClassInfo - Used by ClassAttribs

VERSION

$Rev: 165 $ $Date: 2004-09-14 09:20:29 -0700 (Tue, 14 Sep 2004) $

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.