get_columns => 'values',
get_column => 'get',
add_column => 'set',
-
- ## compat
- get_fields => 'values',
},
default => sub { my %hash = (); tie %hash, 'Tie::IxHash'; return \%hash },
);
around add_column(Column $column) { $self->$orig($column->name, $column) }
- multi method fields(Str $columns) {
- for (split /,/, $columns) { die "Column $_ does not exist!" unless $self->table->exists_column($_) }
- $self->add_column($self->table->get_column($_)) for split /,/, $columns;
- $self->column_ids;
- }
-
- multi method fields(@columns) {
- for (@columns) { die "Column $_ does not exist!" unless $self->table->exists_column($_) }
- $self->add_column($self->table->get_column($_)) for @columns;
- $self->column_ids;
- }
-
- multi method fields(Any $) { $self->column_ids }
-
method is_valid { $self->table && scalar $self->get_columns ? 1 : undef }
}