my $old_destroy = \&Catalyst::Model::KiokuDB::DESTROY;
*Catalyst::Model::KiokuDB::DESTROY = sub {
    warn "$_[0] destroyed";
    goto &$old_destroy;
};