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.