Moose: problem with accessor

saintex has asked for the wisdom of the Perl Monks concerning the following question:

hello Monks,
I have a problem with accessors in Moose.

I have:

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

But if I try:

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

I have this error:

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
[download]

then If I try:

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

(changed from accessor to writer). I have:

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
[download]

Where I'm wrong?

Thank you in advance for answers

Comment on Moose: problem with accessor Select or Download Code

Replies are listed 'Best First'.
Re: Moose: problem with accessor by ikegami (Patriarch) on Mar 31, 2011 at 17:14 UTC
I'm guessing you don't want to the mode to be changed except by methods of the class. If so, make a "private" writer. `has mode => ( reader => 'mode', writer => '_set_mode', isa => 'Str', required => 1, ); sub creaLog { my $self = shift; $self->_set_mode('changed'); }` [download]	[reply] [d/l]
Re^2: Moose: problem with accessor by saintex (Scribe) on Mar 31, 2011 at 19:32 UTC
Hello, thank you for your reply. What is the difference between `$self->method=>'changed';` [download] and `$self->method('changed');` [download] ? Is it a private call? How can I generally define private methods or attributes? Don't I need to define: `sub _set_mode { ... }` [download] in some part of the code?	[reply] [d/l] [select]
Re^3: Moose: problem with accessor by ikegami (Patriarch) on Mar 31, 2011 at 19:43 UTC
'`=>`' is a (slightly special) comma, so `$self->method => 'changed'` [download] is `$self->method, 'changed'` [download] which is `$self->method(), 'changed'` [download] How can I generally define private methods or attributes? "Perl doesn't have an infatuation with enforced privacy. It would prefer that you stayed out of its living room because you weren't invited, not because it has a shotgun" — Larry Wall You can't force something to be private (and it would be useless to do so). However, naming something with a leading "_" is a well known convention to indicate something is private. Don't I need to define [`_set_mode`] No. When you use '`reader`', '`writer`' and '`accessor`', you are asking Moose to create the a function for you. Keep in mind that «`is => 'ro'`» is a shortcut for «`reader => $att_name`» and «`is => 'rw'`» is a shortcut for «`accessor => $att_name`».	[reply] [d/l] [select]
Re^4: Moose: problem with accessor by saintex (Scribe) on Apr 01, 2011 at 07:38 UTC
Re^5: Moose: problem with accessor by ikegami (Patriarch) on Apr 01, 2011 at 13:45 UTC
Some notes below your chosen depth have not been shown here
Re: Moose: problem with accessor by Anonymous Monk on Mar 31, 2011 at 17:00 UTC
Looking for a valid method call? `sub creaLog { my $self = shift; $self->mode( 'changed' ); }` [download]	[reply] [d/l]
Re: Moose: problem with accessor by Fletch (Bishop) on Mar 31, 2011 at 17:13 UTC
You're trying to define a writer for a read-only attribute. The cake is a lie. The cake is a lie. The cake is a lie.	[reply]
Re^2: Moose: problem with accessor by saintex (Scribe) on Mar 31, 2011 at 19:36 UTC
That must be possible: http://search.cpan.org/~drolsky/Moose-1.24/lib/Moose/Manual/Attributes.pod#Accessor_methods But I don't understood how to use it.	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.