Select Code to Download

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

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

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 lin
+e 251

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

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