- 436 名前：デフォルトの名無しさん mailto:sage [2009/07/08(水) 19:55:55 ]
- Perlスレで聞けばいいのに。
モダンに書くとしたら。
package MyObj;
use Moose;
has 'items' => (
is => 'rw',
isa => 'ArrayRef',
default => sub { [] }
);
sub set {
my ($self, $newitem) = @_;
push @{ $self->items }, $newitem;
}
sub take {
my ($self) = @_;
return pop @{ $self->items };
}
1;
これだけ単純なら、use Mooseじゃなくてuse Mouseでも。
