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