my $data = { one => 1, two => 2 }; 
sub data { return $data; }

##</code><code>##

my $proto = ref $self;
print $proto->data;

##</code><code>##

print $self->data;