__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