Select Code to Download

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);