package # hide from PAUSE
DBICTest::Schema::Encoded;
-use base qw/DBICTest::BaseResult/;
-
use strict;
use warnings;
+use base qw/DBICTest::BaseResult/;
+
__PACKAGE__->table('encoded');
__PACKAGE__->add_columns(
'id' => {
__PACKAGE__->set_primary_key('id');
+__PACKAGE__->has_many (keyholders => 'DBICTest::Schema::Employee', 'encoded');
+
sub set_column {
my ($self, $col, $value) = @_;
if( $col eq 'encoded' ){