RosettaCodeData/Task/Null-object/Perl-6/null-object-3.pl6

my Str $str;
say $str.WHAT;      # Str()
$str = "I am a string.";
say $str.WHAT;      # Str()
$str = 42;          # (fails)