package MyAutoloadDemo;

use strict;
use warnings;
use Carp;

our $AUTOLOAD;

sub new {
    my $class = shift;
    my $self  = {};
    $self->{'data'}->{'name'} = 'spiros';
    $self->{'data'}->{'address'} = 'london';
    bless $self, $class;
    return $self;
}

sub AUTOLOAD {
    my $self = shift;
    my $type = ref $self;

    my $name = $AUTOLOAD;
    $name =~ s/.*://;   # strip fully-qualified portion

    if (!exists $self->{data}->{$name} ) {
        croak "Can't access $name field in class $type";
    }

    return $self->{data}->{$name};   
 }

1;