no indirect ":fatal";
my $x;
if ($x) {
my $y = qq{abcdef
        @{[$x
 ->new]}
 };
}
1;