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

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;
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(@_);
	16	warn $row;
	17	warn $self;
	18	return [$hash, $row];
	19	};
	20
	21	1;