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