package Slave;
my $type;
sub type(;$) { $type = shift if @_; $type }
1;

package main;
use strict;
use Slave;
Slave::type("FOO");
print Slave::type . "\n";
Slave::tpye("BAR"); # dies

##</code><code>##

package Slave;
my $type;
sub type(;$) :lvalue { $type = shift if @_; $type }
1;

package main;
use strict;
use Slave;
Slave::type = "FOO";
print Slave::type . "\n";
Slave::tpye = "BAR"; # dies