1234567891011121314 use strict;use warnings;use utf8;use Test::More;use Perl::MinimumVersion::Fast;{ my $warn; $SIG{__WARN__} = sub { $warn = shift }; my $p = Perl::MinimumVersion::Fast->new(\''); is($warn, undef);};done_testing;
use
strict;
warnings;
utf8;
Test::More;
Perl::MinimumVersion::Fast;
{
my
$warn
;
$SIG
{__WARN__} =
sub
=
shift
};
$p
= Perl::MinimumVersion::Fast->new(\
''
);
is(
,
undef
done_testing;