sub store {
my ($self) = @_;
return $self->_result()->update_or_insert() ? 1 : 0;
return $self->_result()->update_or_insert() ? $self : undef;
}
=head3 $object->in_storage();
return $self->_result()->set_columns($properties) ? 1 : undef;
return $self->_result()->set_columns($properties) ? $self : undef;
=head3 $object->id();
sub find {
my ( $self, $id ) = @_;
return unless $id;
my $result = $self->_resultset()->find($id);
my $object = $self->object_class()->_new_from_dbic( $result );
-