Help for this page

Select Code to Download

Select or download this

sub SHIFT {
  my $self = shift;
  scalar $self->SPLICE(0, 1);
}