Changeset 1733

Timestamp:

03/04/16 10:28:11 (8 years ago)

Author:

nanardon

Message:

Cache objects existance

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm (modified) (3 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

@@ -178 +178 @@
 sub new {
     my ($class, $base, $id) = @_;
-    my $sth = $base->db->prepare_cached(
-        sprintf(q{select 1 from %s where %s = ? %s},
-            $base->db->quote_identifier($class->_object_table),
-            $base->db->quote_identifier($class->_key_field),
-            ($base->{wexported} ? '' : 'and exported = true'),
-        ),
-    );
-    my $count = $sth->execute($id);
-    $sth->finish;
-    ($count || 0) == 1 or return;
+
+    my $__cache = $base->{__cache}{"_" . $class->type};
+
+    if (!(exists($__cache->{$id})
+        && $__cache->{$id}{__time} >= time - 1)) {
+
+        my $sth = $base->db->prepare_cached(
+            sprintf(q{select 1 from %s where %s = ? %s},
+                $base->db->quote_identifier($class->_object_table),
+                $base->db->quote_identifier($class->_key_field),
+                ($base->{wexported} ? '' : 'and exported = true'),
+            ),
+        );
+        my $count = $sth->execute($id);
+        $sth->finish;
+        ($count || 0) == 1 or return;
+    }
     $class->SUPER::new($base, $id);
 }
@@ -284 +291 @@
     my ($class, $base, $id) = @_;
 
+    my $__cache = $base->{__cache}{"_" . $class->type};
+
     my $obj = $base->get_object($class->type, $id)
         or return;
@@ -294 +303 @@
         )
     );
-    $sthd->execute($id);
+    my $res = $sthd->execute($id);
+    if ($res) {
+        delete($__cache->{$id});
+    }
+
+    $res
 }