__PACKAGE__->inflate_column('xml', { inflate => sub { MyObject->new( xml => $_[0] ) }, deflate => sub { $_[0]->asXML }, } ); #### $row->xml(MyObject->new( xml => "" ); # row is now dirty $row->update; # goes to the database #### $row->xml->bubba("whatever"); #works in memory but column is not considered dirty $row->update; # does nothing