return (map { $self->{_column_data}{$_} } keys %{$self->_primaries});
}
-sub set_primary {
+sub set_primary_key {
my ($class, @cols) = @_;
my %pri;
$pri{$_} = {} for @cols;
return ($class->search($query))[0];
}
+sub discard_changes {
+ my ($self) = @_;
+ delete $self->{_dirty_columns};
+ $_[0] = $self->retrieve($self->id);
+}
+
1;