Select Code to Download

package Local::Class;
sub new
...

$obj->access_A(0);
say $obj->access_A;   # says 2 !!!

sub access_A
{
...
   $self->{A} = shift if @_;
   return $self->{A};
}