From 09358cbfe71ca6c3551f7a724a02642e53c8d5a2 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Fri, 25 Sep 2009 10:07:04 -0500
Subject: [PATCH] started params validate work

---
 lib/WebGUI/Cache.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lib/WebGUI/Cache.pm b/lib/WebGUI/Cache.pm
index 2d932d259..70a63b3a5 100644
--- a/lib/WebGUI/Cache.pm
+++ b/lib/WebGUI/Cache.pm
@@ -21,6 +21,10 @@ use HTTP::Request;
 use LWP::UserAgent;
 use Memcached::libmemcached;
 use Storable ();
+use WebGUI::Error;
+use Params::Validate qw(:all);
+Params::Validate::validation_options( on_fail => sub { WebGUI::Error::InvalidParam->throw( error => shift ) } );
+
 
 
 =head1 NAME
@@ -67,6 +71,12 @@ The key to delete.
 =cut
 
 sub delete {
+    validate(@_, 
+        { name => {
+            type    => SCALAR
+            }
+        });
+        
     my ($self, $name) = @_;
     Memcached::libmemcached::memcached_delete($self->getMemcached, $self->parseKey($name));
 }