package a;

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

my $obj = new a ();

##</code><code>##

my $obj = "a"->new();

##</code><code>##

$obj ->{$self}{avalue}=10;
print $obj->{$self}{avalue};

##</code><code>##

{
  package a;
  sub new {
    my $class = shift;
    my $self = {};
    bless $self,$class;
    return $self;
  }
  sub avalue {
    my $self = shift;
    $self->{avalue} = shift if @_;
    return $self->{avalue};
  }
}

my $obj = "a"->new();
$obj->avalue(10);           # set
print $obj->avalue, "\n";   # get

##</code><code>##

{
  package a;
  use Moo;
  has avalue => (is => 'rw');
}

my $obj = "a"->new();
$obj->avalue(10);           # set
print $obj->avalue, "\n";   # get