09/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でも。