Commit | Line | Data |
---|---|---|
4cac0ed6 | 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(@_); | |
4cac0ed6 | 16 | return [$hash, $row]; |
17 | }; | |
18 | ||
19 | 1; |