foreach my $method (... list of methods to override ...) {
    eval <<"EOT";
    sub $method {
        my (\$self, \@args) = \@_;
        my $result = \$self->SUPER::$method(\@args);
        bless \$result, __PACKAGE__;
        \$result;
    }
EOT
}