my ($tests, $reports, $subtests);
BEGIN {
- $tests = 25;
+ $tests = 27;
$reports = 42;
$subtests = 3;
}
----
[ 'new', 'X', 1, 9 ]
####
+use indirect; my $x = new X;
+----
+####
my $x = new X; $x = new X;
----
[ 'new', 'X', 1, 9 ], [ 'new', 'X', 1, 21 ]
[ 'new', 'new', 1, 9 ]
####
our $obj;
+use indirect; my $x = new $obj;
+----
+####
+our $obj;
my $x = new $obj;
----
[ 'new', '$obj', 2, 9 ]