+use Class::Method::Modifiers qw/after/;
+
+sub rawcontest { shift->get_column('contest') }
+sub rawproblem { shift->get_column('problem') }
+
+after qw/insert update delete/ => sub {
+ my ($self) = @_;
+ Gruntmaster::Data::purge '/pb/';
+ Gruntmaster::Data::purge '/pb/' . $self->rawproblem;
+};