1package autoclass_011::Inconsistent1; 2use strict; 3use Class::AutoClass; 4use vars 5 qw(@ISA @AUTO_ATTRIBUTES @OTHER_ATTRIBUTES @CLASS_ATTRIBUTES %SYNONYMS %DEFAULTS); 6@ISA = qw(Class::AutoClass); 7@AUTO_ATTRIBUTES = qw(a); 8@OTHER_ATTRIBUTES = qw(); 9@CLASS_ATTRIBUTES = qw(b); 10%SYNONYMS = ( ); 11%DEFAULTS = (); 12Class::AutoClass::declare(__PACKAGE__); 13 14sub _init_self { 15 my ( $self, $class, $args ) = @_; 16 return 17 unless $class eq __PACKAGE__; # to prevent subclasses from re-running this 18 19} 201; 21