sub SET {
 my $self = shift;
 $self->{_changed} = 1;
}