my ($tests, $reports, $subtests);
BEGIN {
- $tests = 27;
- $reports = 42;
+ $tests = 28;
+ $reports = 43;
$subtests = 3;
}
use Test::More tests => $tests + $subtests * $reports;
-use Perl::Critic::TestUtils qw/pcritique_with_violations/;
+use Perl::Critic::TestUtils qw<pcritique_with_violations>;
Perl::Critic::TestUtils::block_perlcriticrc();
my $x = meh { new $obj } new X;
----
[ 'meh', '{', 2, 9 ], [ 'new', '$obj', 2, 15 ], [ 'new', 'X', 2, 26 ]
+####
+my $x = $invalid_global_when_strict_is_on; new X;
+----
+[ 'new', 'X', 1, 44 ]