+$obj = "apple ${\($x->$meth)} pear"
+####
+$obj = "apple @{[$x->$meth]} pear"
+####
+$obj = "apple ${\($y->$meth)} pear"
+####
+$obj = "apple @{[$y->$meth]} pear"
+#### # local $_ = "foo";
+s/foo/return; Hlagh->new/e;
+#### # local $_ = "bar";
+s/foo/return; Hlagh->new/e;
+#### # local $_ = "foo";
+s/foo/return; Hlagh->$cb/e;
+#### # local $_ = "bar";
+s/foo/return; Hlagh->$cb/e;
+#### # local $_ = "foo";
+s/foo/return; Hlagh->$meth/e;
+#### # local $_ = "bar";
+s/foo/return; Hlagh->$meth/e;
+#### # local $_ = "foo";
+s/foo/return; $pkg->new/e;
+#### # local $_ = "bar";
+s/foo/return; $pkg->new/e;
+#### # local $_ = "foo";
+s/foo/return; $pkg->$cb/e;
+#### # local $_ = "bar";
+s/foo/return; $pkg->$cb/e;
+#### # local $_ = "foo";
+s/foo/return; $pkg->$meth/e;
+#### # local $_ = "bar";
+s/foo/return; $pkg->$meth/e;