Changeset 395

Timestamp:

08/10/07 18:57:58 (2 years ago)

Author:

mpaschal

Message:

Hook ram cache driver operations into debug and profiler messages
BugzID: 56565

Files:

• trunk/lib/Data/ObjectDriver/Driver/Cache/RAM.pm (modified) (1 diff)

trunk/lib/Data/ObjectDriver/Driver/Cache/RAM.pm

@@ -16 +16 @@
 }
 
-sub get_from_cache    { $Cache{$_[1]}         }
-sub add_to_cache      { $Cache{$_[1]} = $_[2] }
-sub update_cache      { $Cache{$_[1]} = $_[2] }
-sub remove_from_cache { delete $Cache{$_[1]}  }
-sub clear_cache       { %Cache = ()           }
+sub get_from_cache {
+    my $driver = shift;
+
+    $driver->start_query('RAMCACHE_GET ?', \@_);
+    my $ret = $Cache{$_[0]};
+    $driver->end_query(undef);
+
+    return if !defined $ret;
+    return $ret;
+}
+
+sub add_to_cache {
+    my $driver = shift;
+
+    $driver->start_query('RAMCACHE_ADD ?', \@_);
+    my $ret = $Cache{$_[0]} = $_[1];
+    $driver->end_query(undef);
+
+    return if !defined $ret;
+    return $ret;
+}
+
+sub update_cache {
+    my $driver = shift;
+
+    $driver->start_query('RAMCACHE_SET ?', \@_);
+    my $ret = $Cache{$_[0]} = $_[1];
+    $driver->end_query(undef);
+
+    return if !defined $ret;
+    return $ret;
+}
+
+sub remove_from_cache {
+    my $driver = shift;
+
+    $driver->start_query('RAMCACHE_DELETE ?', \@_);
+    my $ret = delete $Cache{$_[0]};
+    $driver->end_query(undef);
+
+    return if !defined $ret;
+    return $ret;
+}
+
+sub clear_cache {
+    my $driver = shift;
+
+    $driver->start_query('RAMCACHE_CLEAR');
+    %Cache = ();
+    $driver->end_query(undef);
+
+    return;
+}
 
 1;