#!perl -T
use strict;
use warnings;
use Test::More tests => 3 * (2 * 1);
my $n = 1_000;
sub linear {
my ($n, $force_use) = @_;
my @lines;
my $use = $force_use;
for (1 .. $n) {
my $stmt = $use ? 'use indirect;' : 'no indirect;';
$use = !$use unless defined $force_use;
push @lines, "{ $stmt }";
}
return '{ no indirect; ', @lines, '}';
}
for my $test ([ 1, 'always use' ], [ 0, 'always no' ], [ undef, 'mixed' ]) {
my ($force_use, $desc) = @$test;
my $code = join "\n", linear $n, $force_use;
my ($err, @warns);
{
local $SIG{__WARN__} = sub { push @warns, "@_" };
local $@;
eval $code;
$err = $@;
}
is $err, '', "linear ($desc): no errror";
is @warns, 0, "linear ($desc): no warnings";
diag $_ for @warns;
}