hello-world.p6

#!perl6
#
use v6;
my class HelloWorldFactory {
  subset NonEmpty of Str where .chars > 0;

  has NonEmpty $.greeting;
  has NonEmpty $.target;

  sub infix:<👋> {
    constant joiner = "\c[COMMA]\c[NO-BREAK SPACE]";
    [~] $^greeting, joiner, $^target
  }

  method hello-world($target = self.target --> NonEmpty) {
    $.greeting 👋  $target
  }
}

HelloWorldFactory.new(greeting => "Hello", target => "World")
                 .hello-world
                 .say;