Help for this page
package FixedSizeQueue; use Moose; ... push @{$this->items}, $item; shift @{$this->items} if scalar @{$this->items} > $this->max_size; }
my $q = FixedSizeQueue->new(max_size => 3); $q->push(3); ... $q->push(7); $q->push(9); print Dumper($q);
sub BUILDARGS { my($this, $max_size)=@_; return { max_size => $max_size }; }
my $q = FixedSizeQueue->new(3); $q->push(3); ... $q->push(7); $q->push(9); print Dumper($q);
www.com | www.net | www.org
No recent polls found