Moose overrides for purge, purgeRevision, and purgeCache.

This commit is contained in:
Colin Kuskie 2010-04-07 16:43:16 -07:00
parent 7ba89245fa
commit 616d5cc866
36 changed files with 139 additions and 192 deletions

View file

@ -251,11 +251,11 @@ Extend the base method to delete the cookie jar
=cut
sub purge {
override purge => sub {
my $self = shift;
$self->getCookieJar->delete;
$self->SUPER::purge;
}
super();
};
#-------------------------------------------------------------------
@ -266,15 +266,15 @@ See WebGUI::Asset::purgeCache() for details.
=cut
sub purgeCache {
override purgeCache => sub {
my $self = shift;
my $cache = $self->session->cache;
eval {
$cache->delete([$self->proxiedUrl,"URL"]);
$cache->delete([$self->proxiedUrl,"HEADER"]);
};
$self->SUPER::purgeCache;
}
super();
};
#-------------------------------------------------------------------