my ($tests, $subtests);
BEGIN {
- $tests = 13;
+ $tests = 15;
$subtests = 3;
}
-use Test::More tests => $tests + $subtests * 21;
+use Test::More tests => $tests + $subtests * 25;
use Perl::Critic::TestUtils qw/pcritique_with_violations/;
----
[ 'new', 'X', 1, 9 ], [ 'new', 'X', 1, 18 ]
####
+my $x = new X new Y;
+----
+[ 'new', 'X', 1, 9 ], [ 'new', 'Y', 1, 18 ]
+####
my $x = new X;
my $y = new X;
----
----
[ 'new', '$obj', 2, 9 ], [ 'new', '$obj', 2, 21 ]
####
+our ($o1, $o2);
+my $x = new $o1 new $o2;
+----
+[ 'new', '$o1', 2, 9 ], [ 'new', '$o2', 2, 21 ]
+####
our $obj;
my $x = new $obj;
my $y = new $obj;