make_path $external_result_dir;
- # make external content for Result that will be singularized
IO::File->new(">$external_result_dir/Quux.pm")->print(<<"EOF");
package ${SCHEMA_CLASS}::Result::Quux;
sub c_method { 'dongs' }
1;
EOF
- # make external content for Result that will NOT be singularized
IO::File->new(">$external_result_dir/Bar.pm")->print(<<"EOF");
package ${SCHEMA_CLASS}::Result::Bar;