Help for this page

Select Code to Download

Select or download this

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