# %AUTODB example from DESCRIPTION/Defining a persistent class
# each package tests a different keys format

package PctAUTODB_Keys_String_AllTyped;
use base qw(Class::AutoClass);
use vars qw(@AUTO_ATTRIBUTES %AUTODB);
@AUTO_ATTRIBUTES=qw(name sex id friends);
%AUTODB=
  (collection=>'Person',keys=>qq(name string, sex string, id integer));  
Class::AutoClass::declare;

package PctAUTODB_Keys_String_SomeTyped;
use base qw(Class::AutoClass);
use vars qw(@AUTO_ATTRIBUTES %AUTODB);
@AUTO_ATTRIBUTES=qw(name sex id friends);
%AUTODB=
  (collection=>'Person',keys=>'name, sex, id integer');  
Class::AutoClass::declare;

package PctAUTODB_Keys_Hash_AllTyped;
use base qw(Class::AutoClass);
use vars qw(@AUTO_ATTRIBUTES %AUTODB);
@AUTO_ATTRIBUTES=qw(name sex id friends);
%AUTODB=
  (collection=>'Person',keys=>{name=>'string', sex=>'string', id=>'integer'});  
Class::AutoClass::declare;

package PctAUTODB_Keys_Hash_SomeTyped;
use base qw(Class::AutoClass);
use vars qw(@AUTO_ATTRIBUTES %AUTODB);
@AUTO_ATTRIBUTES=qw(name sex id friends);
%AUTODB=
  (collection=>'Person',keys=>{name=>'', sex=>'', id=>'integer'});  
Class::AutoClass::declare;

package PctAUTODB_Keys_Array;
use base qw(Class::AutoClass);
use vars qw(@AUTO_ATTRIBUTES %AUTODB);
@AUTO_ATTRIBUTES=qw(name sex id friends);
%AUTODB=
  (collection=>'PersonStrings',keys=>[qw(name sex id)]);  
Class::AutoClass::declare;

1;