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

@ -493,7 +493,7 @@ purges it's data.
=cut
sub purge {
override purge => sub {
my $self = shift;
my $db = $self->session->db;
@ -501,8 +501,8 @@ sub purge {
$db->write("delete from MatrixListing_rating where listingId=?" ,[$self->getId]);
$db->write("delete from MatrixListing_ratingSummary where listingId=?" ,[$self->getId]);
return $self->next::method;
}
return super();
};
#-------------------------------------------------------------------