The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl

my @warnings;
BEGIN {
    $SIG{__WARN__} = sub {
        push @warnings, @_;
    };
}

use Test::More;

{
    package Foo;
    use perl5i::1;
}
{
    package Bar;
    use perl5i::2;
}

TODO:{
    local $TODO = "loading perl5i::1 and perl5i::2 together not entirely safe";
    is @warnings, 0, "no warnings" or diag explain \@warnings;
}

done_testing;