use warnings;
use Scalar::Util qw/weaken/;
+use namespace::clean;
-use base qw/Class::Data::Inheritable/;
+use base 'DBIx::Class';
__PACKAGE__->mk_classdata('purge_object_index_every' => 1000);
__PACKAGE__->mk_classdata('live_object_index' => { });
sub inflate_result {
my ($class, @rest) = @_;
-
- # we don't want to inflate_result on new_result
- return $rest[3] if(defined $rest[3] && Scalar::Util::blessed $rest[3]);
-
my $new = $class->next::method(@rest);
+
return $new if $new->nocache;
if (my $key = $new->ID) {