X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FData%2FResult%2FOpen.pm;h=e5c45e251b78ac4a66e09954112aa2bff5261518;hb=de7226ca2f77bf5d6fab57c61a6fdeb4fcc52c28;hp=495df192462cf73800040a1cb7209afd595de125;hpb=c29875088440fd6af00925ecd55bf7fb8a59ad4d;p=gruntmaster-data.git diff --git a/lib/Gruntmaster/Data/Result/Open.pm b/lib/Gruntmaster/Data/Result/Open.pm index 495df19..e5c45e2 100644 --- a/lib/Gruntmaster/Data/Result/Open.pm +++ b/lib/Gruntmaster/Data/Result/Open.pm @@ -130,9 +130,17 @@ __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:jAao0vjOW87mO37ZQhm4Cw +use Class::Method::Modifiers qw/after/; + +sub rawcontest { shift->get_column('contest') } sub rawowner { shift->get_column('owner') } sub rawproblem { shift->get_column('problem') } +after qw/insert update delete/ => sub { + my ($self) = @_; + Gruntmaster::Data::purge '/st/' . $self->rawcontest; +}; + 1; __END__