package testInconsistent1; use strict; use Class::AutoClass; use vars qw(@ISA @AUTO_ATTRIBUTES @OTHER_ATTRIBUTES @CLASS_ATTRIBUTES %SYNONYMS %DEFAULTS); @ISA = qw(Class::AutoClass); @AUTO_ATTRIBUTES = qw(a); @OTHER_ATTRIBUTES = qw(); @CLASS_ATTRIBUTES = qw(b); %SYNONYMS = ( ); %DEFAULTS = (); Class::AutoClass::declare(__PACKAGE__); sub _init_self { my ( $self, $class, $args ) = @_; return unless $class eq __PACKAGE__; # to prevent subclasses from re-running this } 1;