X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FLiveObjectIndex.pm;h=970b2d9e066c86a0a88567b4bb345bc4d05bb22b;hb=5e0eea3522876a30453af24097507198bbbc9409;hp=a461a13ea0c95b7d7b6bd19796ea65f175df5090;hpb=2007929b1d9c679e67f85a9ab37c804111e66311;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/CDBICompat/LiveObjectIndex.pm b/lib/DBIx/Class/CDBICompat/LiveObjectIndex.pm index a461a13..970b2d9 100644 --- a/lib/DBIx/Class/CDBICompat/LiveObjectIndex.pm +++ b/lib/DBIx/Class/CDBICompat/LiveObjectIndex.pm @@ -6,7 +6,7 @@ use warnings; use Scalar::Util qw/weaken/; -use base qw/Class::Data::Inheritable/; +use base 'DBIx::Class'; __PACKAGE__->mk_classdata('purge_object_index_every' => 1000); __PACKAGE__->mk_classdata('live_object_index' => { }); @@ -20,9 +20,9 @@ __PACKAGE__->mk_classdata('__nocache' => 0); sub nocache { my $class = shift; - + return $class->__nocache(@_) if @_; - + return 1 if $Class::DBI::Weaken_Is_Available == 0; return $class->__nocache; } @@ -74,9 +74,9 @@ sub insert { sub inflate_result { my ($class, @rest) = @_; my $new = $class->next::method(@rest); - + return $new if $new->nocache; - + if (my $key = $new->ID) { #warn "Key $key"; my $live = $class->live_object_index;