inflator working transparently

[dbsrgits/DBIx-Class-ResultSet-WithMetaData.git] / lib / DBIx / Class / WithMetaData / Inflator.pm

diff --git a/lib/DBIx/Class/WithMetaData/Inflator.pm b/lib/DBIx/Class/WithMetaData/Inflator.pm
new file mode 100644 (file)
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;