X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FTempColumns.pm;h=3a111ee9c0c391cb7fbb37e42ed79110b6cf7192;hb=5e0eea3522876a30453af24097507198bbbc9409;hp=923e895737b9a29a3cad657938ad1013b3dba7c2;hpb=a6c527389f8d7f8fafcf36fe5887b2348c3e9105;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/CDBICompat/TempColumns.pm b/lib/DBIx/Class/CDBICompat/TempColumns.pm index 923e895..3a111ee 100644 --- a/lib/DBIx/Class/CDBICompat/TempColumns.pm +++ b/lib/DBIx/Class/CDBICompat/TempColumns.pm @@ -3,7 +3,7 @@ package # hide from PAUSE use strict; use warnings; -use base qw/DBIx::Class/; +use base 'DBIx::Class'; use Carp; @@ -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); }