#!/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;