04/05/26 17:14
sub method{
my $self = shift;
our(%a, @b); # or use vars pragma
local *a = $self->{a};
local *b = $self->{b};
$a{foo} = 1;
push @b, 'foo';
}
またはAlias.pmとかな。
URLﾘﾝｸ(search.cpan.org)
どっちにしてもあまりメリットは感じないが。
04/05/26 17:14
sub method{
my $self = shift;
our(%a, @b); # or use vars pragma
local *a = $self->{a};
local *b = $self->{b};
$a{foo} = 1;
push @b, 'foo';
}
またはAlias.pmとかな。
URLﾘﾝｸ(search.cpan.org)
どっちにしてもあまりメリットは感じないが。