Purge affected pages on insert/update/delete

[gruntmaster-data.git] / lib / Gruntmaster / Data / Result / ProblemStatus.pm

diff --git a/lib/Gruntmaster/Data/Result/ProblemStatus.pm b/lib/Gruntmaster/Data/Result/ProblemStatus.pm
index d46de2be19cae73c2f9d9862be3e01672b3af8d0..3b8ca4c940603b4eea01e99ec728203ec8c0f768 100644 (file)
--- a/lib/Gruntmaster/Data/Result/ProblemStatus.pm
+++ b/lib/Gruntmaster/Data/Result/ProblemStatus.pm
@@ -135,6 +135,14 @@ __PACKAGE__->belongs_to(
 # Created by DBIx::Class::Schema::Loader v0.07042 @ 2014-12-19 16:44:22
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:1OCTO6sM27DamVhQi3dWKg
 
+use Class::Method::Modifiers qw/after/;
+
 sub rawowner { shift->get_column('owner') }
 
+after qw/insert update delete/ => sub {
+       my ($self) = @_;
+       Gruntmaster::Data::purge '/us/';
+       Gruntmaster::Data::purge '/us/' . $self->rawowner;
+};
+
 1;