Select Code to Download

package OO;
use strict;
use warnings;
use Carp qw/croak/;

#--------------------------------------------------------------------
#       The registry itself: storing all the data of your objects
...

# Object => Class => Attribute

#--------------------------------------------------------------------
#       inheritable constructor with generalized behaviour
...

        return $self;
}

#--------------------------------------------------------------------
#       Use these two methods to get and set members of your
...

        $Object{ $obj }{ $class }{ $field } = $value;
}

#--------------------------------------------------------------------
#       most important: DESTROY
...

        delete $Object{ $obj } #that's why the structure of the regist
+ry was chosen like that
}

#--------------------------------------------------------------------
#       create_accessor class method to create simple accessor/mutator
+ methods
...
                }
        }
}

#--------------------------------------------------------------------
#       debugging function/method (as you like it)
...
}

1;