use strict;
use warnings;
{
package Foo;
use Want;
sub new { return (bless({}, shift)); }
my $foo;
sub foo :lvalue
{
my (@args) = Want::want('ASSIGN');
$foo = $args[0];
Want::lnoreturn;
return;
}
}
use threads;
my $obj = Foo->new();
$obj->foo() = 'bar';
# EOF