X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FRow.pm;h=f05162967cc15167023798c6714a38fcf40640b0;hp=66c6cfbb622cb4a2d055a6a329c6f8298505ee13;hb=ba4a645371fc328eb33fb947333423f753378245;hpb=6c0ddbf737fa59fd988b0ca3bdbd0e68d2ef9e6d

diff --git a/lib/DBIx/Class/Row.pm b/lib/DBIx/Class/Row.pm
index 66c6cfb..f051629 100644
--- a/lib/DBIx/Class/Row.pm
+++ b/lib/DBIx/Class/Row.pm
@@ -292,6 +292,22 @@ sub get_dirty_columns {
            keys %{$self->{_dirty_columns}};
 }
 
+=head2 get_inflated_columns
+
+  my $inflated_data = $obj->get_inflated_columns;
+
+Similar to get_columns but objects are returned for inflated columns instead of their raw non-inflated values.
+
+=cut
+
+sub get_inflated_columns {
+  my $self = shift;
+  return map {
+    my $accessor = $self->column_info($_)->{'accessor'} || $_;
+    ($_ => $self->$accessor);
+  } $self->columns;
+}
+
 =head2 set_column
 
   $obj->set_column($col => $val);