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")