r5945@obrien (orig r877): matthewt | 2006-02-11 17:04:08 +0000
Trivial optimisation in Storage::DBI
r5946@obrien (orig r878): matthewt | 2006-02-11 17:04:44 +0000
Made discard_changes use ->result_source->resultset->find
my ($self) = @_;
delete $self->{_dirty_columns};
return unless $self->in_storage; # Don't reload if we aren't real!
- my ($reload) = $self->find(map { $self->$_ } $self->primary_columns);
+ my ($reload) = $self->result_source->resultset->find(map { $self->$_ } $self->primary_columns);
unless ($reload) { # If we got deleted in the mean-time
$self->in_storage(0);
return $self;
sub _quote {
my ($self, $label) = @_;
return '' unless defined $label;
+ return $label unless $self->{quote_char};
return $self->SUPER::_quote($label);
}