X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FInflateColumn.pm;h=6b06cb091fba89f50f395efd9c955caa3c98979a;hb=237455da90aaf390eece4cce1327baaedb20db4b;hp=382b33213ab0a970924912102de7e350596ebd54;hpb=9f4710678c1d9c959cc13574e7aa0881d3adbf49;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/InflateColumn.pm b/lib/DBIx/Class/InflateColumn.pm index 382b332..6b06cb0 100644 --- a/lib/DBIx/Class/InflateColumn.pm +++ b/lib/DBIx/Class/InflateColumn.pm @@ -148,7 +148,8 @@ sub store_inflated_column { my ($self, $col, $obj) = @_; unless (blessed $obj) { delete $self->{_inflated_column}{$col}; - return undef; + $self->store_column($col => $obj); + return $obj; } delete $self->{_column_data}{$col}; return $self->{_inflated_column}{$col} = $obj; @@ -171,6 +172,14 @@ sub get_column { return $self->next::method($col); } +=head2 get_columns + +Returns the get_column info for all columns as a hash, +just like L. Handles inflation just +like L. + +=cut + sub get_columns { my $self = shift; if (exists $self->{_inflated_column}) { @@ -182,6 +191,13 @@ sub get_columns { return $self->next::method; } +=head2 has_column_loaded + +Like L, but also returns true if there +is an inflated value stored. + +=cut + sub has_column_loaded { my ($self, $col) = @_; return 1 if exists $self->{_inflated_column}{$col}; @@ -198,7 +214,7 @@ inflation and deflation of columns appropriately. sub update { my ($class, $attrs, @rest) = @_; foreach my $key (keys %{$attrs||{}}) { - if (ref $attrs->{$key} + if (ref $attrs->{$key} && $class->has_column($key) && exists $class->column_info($key)->{_inflate_info}) { $class->set_inflated_column($key, delete $attrs->{$key}); } @@ -218,7 +234,8 @@ sub new { my $inflated; foreach my $key (keys %{$attrs||{}}) { $inflated->{$key} = delete $attrs->{$key} - if ref $attrs->{$key} && exists $class->column_info($key)->{_inflate_info}; + if ref $attrs->{$key} && $class->has_column($key) + && exists $class->column_info($key)->{_inflate_info}; } my $obj = $class->next::method($attrs, @rest); $obj->{_inflated_column} = $inflated if $inflated;