use strict;
use warnings;
-use Test::More tests => 32 * 2;
+use Test::More tests => 36 * 2;
my ($obj, $pkg, $cb, $x);
sub meh;
print STDOUT "bananananananana\n";
####
print $x "oh hai\n";
+####
+$x->foo($pkg->$cb)
+####
+$obj = "apple ${\(new Hlagh)} pear"
+####
+$obj = "apple @{[new Hlagh]} pear"
+####
+s/dongs/new Hlagh/e;