sub creaLog {
   my $self = shift;
   $self->mode( 'changed' );
}