#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

{
    package My;
    sub new { bless {}, shift }
    sub attr () :lvalue { shift->{attr} }
}

my $o = 'My'->new;
$o->attr = 12;
say $o->attr;