Moose overrides for purge, purgeRevision, and purgeCache.
This commit is contained in:
parent
7ba89245fa
commit
616d5cc866
36 changed files with 139 additions and 192 deletions
|
|
@ -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();
|
||||
};
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue