Select Code to Download

use utf8;
package Test::Schema::Result::MyTable;
...
__PACKAGE__->set_primary_key("id");

1;

use utf8;
package Test::Schema;
...
__PACKAGE__->load_namespaces;

1;

use strict;
use warnings;
...
say $obj->extra_attr;

__END__

bar
hello, world