use Data::Dump qw/ dd /;
dd( my $f = Foo->new(qw/ bar 1 /) );
$f->bar;
{package Foo; use Moo; }
__END__
bless({ bar => 1 }, "Foo")
Can't locate object method "bar" via package "Foo" at - line 3.
####
use Data::Dump qw/ dd /;
dd( my $f = Foo->new(qw/ bar 1 /) );
$f->bar;
{package Foo; use Moo; has( qw/ bar is rw / ); }
__END__
bless({ bar => 1 }, "Foo")
Can't locate object method "bar" via package "Foo" at - line 3.
##
##
use Data::Dump qw/ dd /;
dd( my $f = Foo->new(qw/ bar 1 /) );
$f->bar;
BEGIN{package Foo; use Moo; has( qw/ bar is rw / ); }
__END__
bless({ bar => 1 }, "Foo")
##
##
{package Foo; use Moo; has( qw/ bar is rw / ); }
use Data::Dump qw/ dd /;
dd( my $f = Foo->new(qw/ bar 1 /) );
$f->bar;
__END__
bless({ bar => 1 }, "Foo")