Honorable Monks,

Can anyone point me to a little open-source project where the Class::Std object system was used. I'd like to get some inspiration on how code using this looks like in real life.

Currently I am not using Class::Std in production, although I have spent some time recently to create something like a code generator for classes using this object system.

Now I have a question regarding object attributes (such as %name_of, %patent_of in the code below) in a base class. These are not inherited to the derived classes,are they? It seems to me that I cannot access the values of object attibutes of a parent class from within the derived class.

Is use of SUPER disallowed generally in Class:Std?

Must I always redeclare those attributes ( at least those that I intend to use) in the derived class? Wouldn't this result in code duplication?

    package Wax::Floor;
    use Class::Std;
    {
        my %name_of    :ATTR( init_arg => 'name'   );
        my %patent_of  :ATTR( init_arg => 'patent' );

        sub describe :CUMULATIVE {
            my ($self) = @_;

            print "The floor wax $name_of{ident $self} ",
                  "(patent: $patent_of{ident $self})\n";

            return;
        }
    }

    package Topping::Dessert;
    use Class::Std;
    {
        my %name_of     :ATTR( init_arg => 'name'    );
        my %flavour_of  :ATTR( init_arg => 'flavour' );

        sub describe :CUMULATIVE {
            my ($self) = @_;

      print "The dessert topping $name_of{ident self}",
          "with that great $flavour_of{ident $self} taste!\n";

            return;
        }
    }

    package Shimmer;
    use base qw( Wax::Floor  Topping::Dessert );
    use Class::Std;
    {
        my %name_of    :ATTR( init_arg => 'name'   );
        my %patent_of  :ATTR( init_arg => 'patent' );

        sub describe :CUMULATIVE {
            my ($self) = @_;

            print "New $name_of{ident $self} (patent: $patent_of{ident
+ $self})\n",
                  "Combining...\n";

            return;
        }
    }
[download]

The code above is from the Class:Std CPAN documentation (which contains some inconsistencies, by the way.)

I know that Moose is a popular object system. I might indeed try it at a later time.