lib/DBIx/Class/WithMetaData/Inflator.pm

   1 package DBIx::Class::WithMetaData::Inflator;
   2
   3 use strict;
   4 use warnings;
   5 use Moose;
   6 extends 'DBIx::Class::ResultClass::HashRefInflator';
   7
   8 around inflate_result => sub {
   9   my $orig = shift;
  10   my $self = shift;
  11
  12   my $hash = $self->$orig(@_);
  13
  14   my ($source, @rest) = @_;
  15   my $row =  $source->result_class->inflate_result(@_);
  16   return [$hash, $row];
  17 };
  18
  19 1;