Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: Moose and default values

by 7stud (Deacon)
on Feb 21, 2013 at 05:39 UTC ( #1019891=note: print w/ replies, xml ) Need Help??


in reply to Moose and default values

...but the downside is that the default-value is not declared with the attribute but buried in the BUILDer-code and to make this work the attribute has to be "rw".

How about using the initializer option?

use strict; use warnings; use 5.012; package Dog; use Moose; has color => ( is => "ro", initializer => sub { my ($self, $attr_val, $setter) = @_; defined $attr_val or $setter->('black'); } ); my $dog = Dog->new(color => undef); say $dog->color; --output:-- black

I am not so much interested in the feature itself, but it is interesting to see some examples of Moose-metaprogramming at work...

Never mind.


Comment on Re: Moose and default values
Download Code
Re^2: Moose and default values
by tobyink (Abbot) on Feb 21, 2013 at 13:17 UTC

    Good idea. I don't know why I didn't think of initializers. The Moose cabal aren't especially big fans of initializers, and consider them to be a bit of a misfeature, but this is the kind of niche area they seem to come in handy.

    Let's take your initializer technique and add some metaprogramming.

    For completeness, here's everything in one file.

    package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name

      The Moose cabal aren't especially big fans of initializers, and consider them to be a bit of a misfeature,

      Why is that? The only thing I can find is the following from Moose::Manual:BestPractices:

      Don't use the initializer feature
      
      Don't know what we're talking about? That's fine.
      
      Uh, okay, but I do know what you are talking about. The manual's reasoning for that best practice doesn't quite rise to the level of a Damian Conway best practice.

        "Why is that?"

        Good question. I wasn't sure myself. I seem to recall RJBS saying that initializers were his first ever contribution to Moose, but that he regretted ever adding them.

        The best reasons I could come up with were:

        • It leads to inconsistent behaviour when an attribute value is set via the constructor versus a writer method. (Of course, this isn't an issue for read-only attributes.)

        • Initializers can't be inlined whereas type coercions can be partly compiled into a more efficient form, and have potential for improvement.

        Having asked in #moose, I've had the following additional suggestions:

        • The initializer isn't called until after type constraints have been checked, so initializers don't work for one of the main use cases you'd expect them to be useful for: to munge values to conform to their type constraints.

        • (I'll add to this list when I receive more responses from IRC.)

        package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1019891]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (7)
As of 2014-11-20 21:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (101 votes), past polls