Help for this page

Select Code to Download

Select or download this

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

Select or download this

my @public_fields = qw(address phone);

...
   (my $sub = $AUTOLOAD) =~ s/.*::// ; 
   return (in_array(\@public_fields,$sub) && exists($self->{'data'}->{
+$sub}) ? $self->{'data'}->{$sub} : undef) ;
 }