my ($obj, $pkg, $cb, $x, @a);
our $y;
sub meh;
+sub try (&);
{
local $/ = "####";
####
$obj = $pkg->$cb(qw/foo bar baz/);
####
-$obj = new { $x };
-####
-$obj = new
- {
- $x }
- ();
-####
-$obj = new {
- $x } qq/foo/;
-####
-$obj = new
- {
- $x
- }(qw/bar baz/);
-####
meh;
####
meh $_;
system $x $x, @a;
####
system { $a[0] } @a;
+####
+try { };
+####
+try { 1; };
+####
+try { 1; 1; };
+####
+try { try { }; 1; };