Help for this page

Select Code to Download


  1. or download this
    sub AUTOLOAD
     {
    ...
       (my $sub = $AUTOLOAD) =~ s/.*::// ; 
       return (exists($self->{'data'}->{$sub}) ? $self->{'data'}->{$sub} :
    + undef) ;
     }
    
  2. 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) ;
     }