gistfile1.pl

for my $source_name (__PACKAGE__->sources) {
    my $method_name = lc($source_name =~ s/(?<=.)(?=[A-Z])/_/axmsgr);
    s/(?<![aeiou])y$/ies/axms or s/(?:ss|s|sh|ch|x)\K\z/es/axms or s/\z/s/axms
        for $method_name; # XXX: perhaps use Lingua::EN::Inflect or similar?
    my $method = sub {
        my $rs = shift->resultset($source_name);
        return @_ ? $rs->search_rs(@_) : $rs;
    };
    no strict 'refs';
    *$method_name = $method;
}