Re^2: Moose attribute predicate alternative

Or even:

$attr{$_} = $self->$_ if $self->${\"has_$_"} for qw/x y w h/;
[download]

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

Comment on Re^2: Moose attribute predicate alternative Download Code

Replies are listed 'Best First'.
Re^3: Moose attribute predicate alternative by hdb (Monsignor) on Jul 04, 2013 at 14:46 UTC
Are you sure? This does not work: `print $a if ++$a for qw/x y w h/;` [download] while this does work: `do { print $a if ++$a } for qw/x y w h/;` [download] (compare Syntax error in Nested for)	[reply] [d/l] [select]
Re^4: Moose attribute predicate alternative by Anonymous Monk on Jul 04, 2013 at 15:35 UTC
++$a and print $a for qw/ x y y y /;	[reply]