The array / array name / pad slot

sub array {
   my ($self) = @_;
   wantarray ? $self->length : $self->contents
}
[download]