use strict;
use warnings;
-use Test::More tests => 86 * 8;
+use Test::More tests => 101 * 8;
BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
#### # local $_ = "bar";
s/foo/return; Hlagh->$meth/e;
#### # local $_ = "foo";
-s/foo/return; $pkg->new/e;
+s/foo/return; $x->new/e;
#### # local $_ = "bar";
-s/foo/return; $pkg->new/e;
+s/foo/return; $x->new/e;
#### # local $_ = "foo";
-s/foo/return; $pkg->$cb/e;
+s/foo/return; $x->$cb/e;
#### # local $_ = "bar";
-s/foo/return; $pkg->$cb/e;
+s/foo/return; $x->$cb/e;
#### # local $_ = "foo";
-s/foo/return; $pkg->$meth/e;
+s/foo/return; $x->$meth/e;
#### # local $_ = "bar";
-s/foo/return; $pkg->$meth/e;
+s/foo/return; $x->$meth/e;
+#### # local $_ = "foo";
+s/foo/return; $y->new/e;
+#### # local $_ = "bar";
+s/foo/return; $y->new/e;
+#### # local $_ = "foo";
+s/foo/return; $y->$cb/e;
+#### # local $_ = "bar";
+s/foo/return; $y->$cb/e;
+#### # local $_ = "foo";
+s/foo/return; $y->$meth/e;
+#### # local $_ = "bar";
+s/foo/return; $y->$meth/e;
+####
+"foo" =~ /(?{Hlagh->new})/;
+####
+"foo" =~ /(?{Hlagh->$cb})/;
+####
+"foo" =~ /(?{Hlagh->$meth})/;
+####
+"foo" =~ /(?{$x->new})/;
+####
+"foo" =~ /(?{$x->$cb})/;
+####
+"foo" =~ /(?{$x->$meth})/;
+####
+"foo" =~ /(?{$y->new})/;
+####
+"foo" =~ /(?{$y->$cb})/;
+####
+"foo" =~ /(?{$y->$meth})/;
####
exec $x $x, @a;
####