if( $obj->get_dirty_columns ) {
 # $obj is dirty
 ...