X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FLiveObjectIndex.pm;h=de17f97ed0055c38f0bd2731d5c54fd282c27849;hb=0ff3368690783358903b3689a1a96ef21271f825;hp=d62e325914d93ee6b9bb6be3af8b53eebabf7e28;hpb=de621449d983d7dbc139687a1d9f157524009942;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/CDBICompat/LiveObjectIndex.pm b/lib/DBIx/Class/CDBICompat/LiveObjectIndex.pm index d62e325..de17f97 100644 --- a/lib/DBIx/Class/CDBICompat/LiveObjectIndex.pm +++ b/lib/DBIx/Class/CDBICompat/LiveObjectIndex.pm @@ -5,8 +5,9 @@ use strict; 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' => { }); @@ -73,11 +74,8 @@ sub insert { 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) {