use strict;
use warnings;
use feature 'say';

use Test::Schema;

my $schema = Test::Schema->connect('dbi:SQLite:./test.db','','');

my $obj = $schema->resultset('MyTable')->find(1);

say $obj->foo;
say $obj->extra_attr;

__END__