This reminds me what I did, for a short time. In the end, I found my approach unworkable due to other reasons:

...
$schema->source('ThreadedDB::Article')->resultset_class('ThreadedDB::A
+rticle::ResultSet');
...

package ThreadedDB::Article::ResultSet;
use parent 'DBIx::Class::ResultSet';

sub frobnitz {
...
}
[download]