Help for this page

Select Code to Download


  1. or download this
    package Tie::Array::MaxLen;
use Carp;
...
  check($self->[0], $off + $len);
  splice(@{ $self->[1] }, $off, $len, @_);
}
  2. or download this
    tie my(@five), 'Tie::Array::MaxLen', 5;
push @five, 10, 20, 30, 40;
push @five, 50;
push @five, 60;  # QUACK