AK
Size: a a a
AK
AK
SZ
GK
SZ
GK
SZ
GK
{ my $x; sub var : lvalue { $x } }
sub foo { var = 'foo'; ... }
sub bar { var = 'bar'; ... }
SZ
SZ
SZ
GK
SZ
SZ
GK
GK
SZ
var name
превращало в my $name; sub name() :lvalue {$name}
SZ
GK
sub foo {
my $v; sub var : lvalue { $v; }
var = 'foo';
say var;
}
sub bar {
my $v; sub var : lvalue { $v; }
var = 'bar';
foo;
say var;
}
bar
GK