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

@ -193,10 +193,10 @@ asset instances, you will need to purge them here.
=cut
sub purge {
override purge => sub {
my $self = shift;
return $self->SUPER::purge;
}
return super();
};
#-------------------------------------------------------------------
@ -206,10 +206,10 @@ This method is called when data is purged by the system.
=cut
sub purgeRevision {
override purgeRevision => sub {
my $self = shift;
return $self->SUPER::purgeRevision;
}
return super();
};
#-------------------------------------------------------------------