$row->discard_changes; #### package MyDB::T; use base qw( DBIx::Class ); # setup stuff ... sub new { my ( $class, $attrs ) = @_; $attrs->{ 'i' } = 3 unless defined $attrs->{ 'i' }; return $class->next::method( $attrs ); }