Select Code to Download

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

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