=head1 METHODS
-=over 4
-
=cut
sub _ident_cond {
return (map { $self->{_column_data}{$_} } keys %{$self->_primaries});
}
-=item set_primary_key <@cols>
+=head2 set_primary_key <@cols>
define one or more columns as primary key for this class
$class->_primaries(\%pri);
}
-=item find
+=head2 find
Finds columns based on the primary key(s).
return (@row ? $class->_row_to_object(\@cols, \@row) : ());
}
-=item discard_changes
+=head2 discard_changes
Roll back changes that hasn't been comitted to the database.
return $self;
}
-=item id
+=head2 id
returns the primary key(s) for the current row. Can't be called as
a class method.
return (wantarray ? @pk : $pk[0]);
}
-=item primary_columns
+=head2 primary_columns
read-only accessor which returns a list of primary keys.
1;
-=back
-
=head1 AUTHORS
Matt S. Trout <mst@shadowcatsystems.co.uk>