X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FData%2FResult%2FProblemStatus.pm;h=3b8ca4c940603b4eea01e99ec728203ec8c0f768;hb=78c794d653161038dd4ef5986d7c7a5b96baff82;hp=d46de2be19cae73c2f9d9862be3e01672b3af8d0;hpb=be2f7678d7b65c497fe9d65b74b1b5bb4a47b496;p=gruntmaster-data.git diff --git a/lib/Gruntmaster/Data/Result/ProblemStatus.pm b/lib/Gruntmaster/Data/Result/ProblemStatus.pm index d46de2b..3b8ca4c 100644 --- 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;