has [qw(arg1 arg2)] => (is => "rw"); #### has $_ => (is => "rw") for qw(arg1 arg2); #### use v5.12; use MooX::Struct OurClass => [ qw( $arg1 $arg2 ), TO_STRING => sub { join "\n", @{+shift} }, ]; my $object = OurClass["Hello", "World"]; say $object;