Actually that sub won't work. For lvalue subs you should not use a return statement. You need something like:

sub value : lvalue {
   my $self = shift;
   $self->{value};
}
[download]