in reply to Re: (tye)Re: Reference as the only Object element
in thread Reference as the only Object element

You're confusing the implentation of the object and the attributes of that object.

If you want to declare an object which is implented as a list, I'd do something like: 

sub new {
    my $class = shift;
    my $self = [@_];
    bless $self, $class;
    return $self;
}

sub getList {
    my $self = shift;

    if (wantarray) {
        return @$self;
    else {
        return [@$self];
    }
}

[download]

If you wanted to have a class which had only one attribute and that attribute was a list, I'd do something like: 

sub new {
    my $class = shift;

    my $self = {};
    bless $self, $class;

    $self->{LIST} = [@_];

    return $self;
}

sub getList {
    my $self = shift;

    if (wantarray) {
        return @{$self->{LIST}};
    else {
        return [@$self->{LIST}];
    }
}

[download]
Then, you would add setters as well. However, we already have something like this, in the form of tie and Tie::Array (and its cousin Tie::Hash). Check those out.

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

Replies are listed 'Best First'.
(tye)Re2: Reference as the only Object element
by tye (Sage) on Nov 02, 2001 at 23:10 UTC

    After chatting with Fatvamp, I think what he wants is something close to this: 

    sub new {
    return bless [], shift;
}

sub addItems {
    my $self= shift;
    unshift @$self, @_;
}

sub setList {
    my $self= shift;
    my( $ref )= @_;
    if(  1 == @_  &&  ref($ref)  ) {
        @$self= @$ref;
    } else {
        @$self= @_;
    }
}

sub getItem {
    my $self= shift;
    my $idx= shift;
    return $self->[$idx];
}

sub getList {
    my $self= shift;
    if (wantarray) {
        return @$self;
    } else {
        return [@$self];
    }
}

    [download]

            - tye (but my friends call me "Tye")
[reply]
[d/l]
      Basically, he wants some class that acts as an array. That works just fine.

      I'd make one reccomendation - be positive that addItem() is always going to do an unshift. It's more intuitive to add to the end vs. the beginning of a list.

      ------
      We are the carpenters and bricklayers of the Information Age.

      Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

[reply]

In Section Seekers of Perl Wisdom