$self->{'data'}->{'name'} = 'spiros';
$self->{'data'}->{'address'} = 'london';

##</code><code>##

sub name {
  my $self = shift;
  return $self->{'data'}->{'name'};
}