package Foo ;

use base qw/AutoAccess/ ;

sub new{
  bless { 'a1' => undef , 'a2' =>undef } , shift ;
}

1;