# Created by DBIx::Class::Schema::Loader v0.07042 @ 2014-12-19 16:54:00
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:hEAVL5heV13+nalSmgr0WA
+use Class::Method::Modifiers qw/after/;
+
sub rawcontest { shift->get_column('contest') }
sub rawowner { shift->get_column('owner') }
sub rawproblem { shift->get_column('problem') }
shift->update({daemon => undef, result => -2, result_text => undef});
}
+after qw/insert update delete/ => sub {
+ my ($self) = @_;
+ Gruntmaster::Data::purge '/us/';
+ Gruntmaster::Data::purge '/us/' . $self->rawowner;
+ Gruntmaster::Data::purge '/st/' . $self->rawcontest if $self->rawcontest;
+ Gruntmaster::Data::purge '/log/';
+ Gruntmaster::Data::purge '/log/' . $self->id;
+};
+
1;
__END__