X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FWithMetaData%2FInflator.pm;fp=lib%2FDBIx%2FClass%2FWithMetaData%2FInflator.pm;h=6f42dd010dd04fa1ead59819472897a18f484c96;hb=4cac0ed673bc17698d8e736fa4d4fbb70666c7fe;hp=0000000000000000000000000000000000000000;hpb=4d83e732b5f5add55448cb2cb60e980c1c57c5be;p=dbsrgits%2FDBIx-Class-ResultSet-WithMetaData.git

diff --git a/lib/DBIx/Class/WithMetaData/Inflator.pm b/lib/DBIx/Class/WithMetaData/Inflator.pm
new file mode 100644
index 0000000..6f42dd0
--- /dev/null
+++ b/lib/DBIx/Class/WithMetaData/Inflator.pm
@@ -0,0 +1,21 @@
+package DBIx::Class::WithMetaData::Inflator;
+
+use strict;
+use warnings;
+use Moose;
+extends 'DBIx::Class::ResultClass::HashRefInflator';
+
+around inflate_result => sub {
+  my $orig = shift;
+  my $self = shift;
+
+  my $hash = $self->$orig(@_);
+
+  my ($source, @rest) = @_;
+  my $row =  $source->result_class->inflate_result(@_);
+  warn $row;
+  warn $self;
+  return [$hash, $row];
+};
+
+1;