oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

started params validate work

Browse source
This commit is contained in:
JT Smith 2009-09-25 10:07:04 -05:00
parent 880ee82009
commit 09358cbfe7
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Cache.pm
View file

@ -21,6 +21,10 @@ use HTTP::Request;
use LWP::UserAgent; use LWP::UserAgent;
use Memcached::libmemcached; use Memcached::libmemcached;
use Storable (); 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 =head1 NAME
@ -67,6 +71,12 @@ The key to delete.
=cut =cut
sub delete { sub delete {
validate(@_,
{ name => {
type => SCALAR
}
});
my ($self, $name) = @_; my ($self, $name) = @_;
Memcached::libmemcached::memcached_delete($self->getMemcached, $self->parseKey($name)); Memcached::libmemcached::memcached_delete($self->getMemcached, $self->parseKey($name));
} }