use v5.12;

use MooX::Struct OurClass => [
	qw( $arg1 $arg2 ),
	TO_STRING => sub { join "\n", @{+shift} },
];

my $object = OurClass["Hello", "World"];
say $object;