http://www.perlmonks.org?node_id=1178740


in reply to DBI::Class relationship naming

Is this exactly the code you are running? If so, you probably are missing a 's'

my $t1_rs = $schema->resultset('T1'); $query_rs = $t1_rs->search; while (my $account = $query_rs->next) { print Dumper $account->groupname->name; } # here ---^

since in your table t1 the column is named "groupnames", not "groupname".

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'