test-mop-new-with-args.pl

#!/usr/bin/env perl

use v5.14;
use mop;

class Foo {
    has $!sentence is ro;

    method new($class: @words) {
        $class->next::method(words => \@words);
    }

    submethod BUILD($args) {
        $!sentence = join " ", @{$args->{words}};
    }
}

say Foo->new(qw<mop is cool>)->sentence;