has mode =>(is => 'ro',accessor=>'creaLog', isa => 'Str',required => 1);

##</code><code>##

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

##</code><code>##

Cannot define an accessor name on a read-only attribute, accessors are read/write at /usr/local/lib/perl/5.10.1/Moose/Meta/Attribute.pm line 251

##</code><code>##

has mode =>(is => 'ro',writer=>'creaLog', isa => 'Str',required => 1);

##</code><code>##

You are overwriting a locally defined method (creaLog) with an accessor at /usr/local/lib/perl/5.10.1/Moose/Meta/Attribute.pm line 663