The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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;