Hello!

Is there any way of changing a returned hashref from a module with another function from within the module?

Like this:

Module:

package Test;

sub new{
  my $class = shift;
  my $self = {};
  bless $self, $class;
}

sub one{
  my $self = shift;
  my %hash = (1 => 'unchanged');
  $self]->{HASH} = \%hash;
  return $self->{HASH};
}

sub two{
  $_[0]->{HASH} = {1 => 'one'};
}

1;
[download]

Script/main:

use Test;
use Data::Dumper;

my $t = Test->new();

my $p = $t->one();
print "First: " . Dumper($p) . "\n\n";
$t->two;
print "Second: " . Dumper($p) . "\n\n"; #expecting this to change the 
+$p hashref
[download]

I have tried hard to find information on how to do this but it's hard to define a search for what I want to do (terminology may be my weakness here...).

Is there any way to tie the hashref in main to the internal $self->{HASH} ?

Thanks in advance!