Perlについての質問箱 12箱目
■ このスレッドは過去ログ倉庫に格納されています
0439ヽ(´ー`)ノ ◆.ogCuANUcE
NGNGadd() で $self にアクセスすると落ちる。
バージョンは 5.8.4。
{
package Container;
use overload
'+=' => sub {
# impl.
},
'fallback' => 1;
sub new
{
my ($class) = @_;
return bless([], $class);
}
sub add
{
my ($self, $item) = @_;
$self += $item;
}
}
my $p = Container->new();
$p->add('a');
■ このスレッドは過去ログ倉庫に格納されています