The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package testSerialize;
use strict;
use vars qw(@ISA @AUTO_ATTRIBUTES @OTHER_ATTRIBUTES %SYNONYMS %DEFAULTS);
use Class::AutoClass;
use Class::AutoDB::Serialize;
@ISA=qw(Class::AutoClass Class::AutoDB::Serialize); # AutoClass must be first!!;

@AUTO_ATTRIBUTES=qw(id prev next list);
%DEFAULTS=(list=>[]);
Class::AutoClass::declare;
use overload
  fallback => 'TRUE';

1;