2 use warnings FATAL => 'all';
3 use Test::More qw(no_plan);
11 our @EXPORT_OK = qw(thing);
15 package MultiExporter;
21 warnings->import::into($target);
22 MyExporter->import::into($target, 'thing');
25 $INC{"MultiExporter.pm"} = 1;
44 local $SIG{__WARN__} = sub { push @w, @_; };
46 }, 'thing', 'returned thing ok');
48 is(scalar @w, 1, 'Only one entry in @w');
50 like($w[0], qr/uninitialized/, 'Correct warning');