BEGIN { our @ISA = qw(Pixie::Object); }

##</code><code>##

                # Do something more extreme?
                my @attributes = eval "attributes::get(\\\&$class\::$key)";
                print "$key : @attributes\n";
                warn "$class already has a method $key; this will be used instead of field access." .
                      " Attach attribute override to that method if you would like to suppress this message."
                      unless grep(/^override/,@attributes);