Select Code to Download

package a;

...
}

my $obj = new a ();

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

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

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

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