sub new { my ( $class, $attrs ) = @_; my $ret = $class->next::method($attrs); $ret->result_source->add_columns(qw/type/); }