X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FTempColumns.pm;h=428719ed2fd0a9e85da358d1c18ea86eb33d4d6a;hb=a0c96f2461b2a46b242b8432deb0ad88880f73cd;hp=f5b60d47d04851d0c3b76f055447276682236636;hpb=5e85c6715197a71ec9bd016992e4e05ae90b14ce;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/CDBICompat/TempColumns.pm b/lib/DBIx/Class/CDBICompat/TempColumns.pm index f5b60d4..428719e 100644 --- a/lib/DBIx/Class/CDBICompat/TempColumns.pm +++ b/lib/DBIx/Class/CDBICompat/TempColumns.pm @@ -11,7 +11,7 @@ __PACKAGE__->mk_classdata('_temp_columns' => { }); sub _add_column_group { my ($class, $group, @cols) = @_; - + return $class->next::method($group, @cols) unless $group eq 'TEMP'; my %new_cols = map { $_ => 1 } @cols; @@ -61,11 +61,11 @@ sub find_column { sub set { my($self, %data) = @_; - + my $temp_data = $self->_extract_temp_data(\%data); - + $self->set_temp($_, $temp_data->{$_}) for keys %$temp_data; - + return $self->next::method(%data); }