The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package HR::ResultAs::Stupid;

use parent 'DBIx::DataModel::Schema::ResultAs';

sub get_result { return "stupid"}

1;