has mode => (
   reader   => 'mode',
   writer   => '_set_mode',
   isa      => 'Str',
   required => 1,
);

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