12345678910 use strict;use Test::More;local $ENV{PERL_TEXT_QUERYSTRING_BACKEND} = 'PP';my @files = <t/*.t>;foreach my $f (@files) { subtest $f => sub { do $f; };}
use
strict;
Test::More;
local
$ENV
{PERL_TEXT_QUERYSTRING_BACKEND} =
'PP'
;
my
@files
= <t/*.t>;
foreach
$f
(
) {
subtest
=>
sub
{
do
};
}