sub AUTOLOAD
 {
   my ($self, $field ) = @_ ;
   (my $sub = $AUTOLOAD) =~ s/.*::// ; 
   return $self->{'data'}->{$sub} ;
 }