Lines Matching refs:self
42 my $self = {
46 bless($self, $class);
49 while (scalar @{$self->{'values'}} < $column_count)
51 push @{$self->{'values'}}, "";
54 return $self;
67 my ($self, $column) = @_;
71 return $self->{'values'}->[$column];
75 my $column_index = $self->{'table'}->GetColumnIndex($column);
76 return $self->{'values'}->[$column_index];
85 my ($self, $column, $value) = @_;
89 $self->{'values'}->[$column] = $value;
93 my $column_index = $self->{'table'}->GetColumnIndex($column);
94 $self->{'values'}->[$column_index] = $value;
96 $self->{'table'}->MarkAsModified();
104 my ($self) = @_;
105 return @{$self->{'values'}};
113 my $self = shift;
119 my $column_count = $self->{'table'}->GetColumnCount();
120 foreach my $item (@{$self->{'values'}})
142 my ($self, $new_table) = @_;
144 my $clone = { %$self };
145 $clone->{'values'} = [ @{$self->{'values'}} ];
157 my ($self, $new_table) = @_;
159 if (defined $self->{'table'} && $self->{'table'} != $new_table)
165 $self->{'table'} = $new_table;