X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FInflateColumn.pm;h=5c7f91450f6d6cb6e02fb5422fe2d09d7d305f95;hb=9c82c181a7b1f976a31902c5a7d0800b8648b122;hp=a3290b0d8d3cfd187a9515ee6b4b0554d8c1e7dd;hpb=4a07648ace2ace5b878c63aec52b7a30c1432b4d;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/InflateColumn.pm b/lib/DBIx/Class/InflateColumn.pm index a3290b0..5c7f914 100644 --- a/lib/DBIx/Class/InflateColumn.pm +++ b/lib/DBIx/Class/InflateColumn.pm @@ -77,12 +77,13 @@ sub new { return $class->NEXT::ACTUAL::new({ %$attrs, %deflated }, @rest); } -sub _cond_value { - my ($self, $attrs, $key, $value) = @_; - if (exists $self->_columns->{$key}) { - $value = $self->_deflated_column($key, $value); - } - return $self->NEXT::ACTUAL::_cond_value($attrs, $key, $value); -} +# **** B0RKEN. DOESN'T GET CALLED! +#sub _cond_value { +# my ($self, $attrs, $key, $value) = @_; +# if (exists $self->_columns->{$key}) { +# $value = $self->_deflated_column($key, $value); +# } +# return $self->NEXT::ACTUAL::_cond_value($attrs, $key, $value); +#} 1;