X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FLiveObjectIndex.pm;h=f05eff7d0bcb56f3e3e7f68dfcee558595f72b49;hb=7f4433eb9bbe0650b4f5e2dff8bf817f4d28d3df;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..f05eff7 100644 --- a/lib/DBIx/Class/CDBICompat/LiveObjectIndex.pm +++ b/lib/DBIx/Class/CDBICompat/LiveObjectIndex.pm @@ -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;