bugz.p6

#!/usr/bin/env perl6
use Email::Simple;

sub is-weird($a) { $a.NFC.Str !eq $a }

my $a = buggy-str();
say ‘Is weird: ’, is-weird($a);
dd $a;
say $a eq “: \n\r\n\r”;

output

Is weird: True
Str $a = ": \n\r\n\r"
False

Simple.pm6

unit class Email::Simple;

sub buggy-str is export { “: {‘’}\n\r” ~ “\n\r” }