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