1use strict; 2use warnings; 3use lib 't/lib'; 4use Test::More; 5 6use Package::Stash; 7 8my $warnings; 9BEGIN { 10 $warnings = ''; 11 $SIG{__WARN__} = sub { $warnings .= $_[0] }; 12} 13 14BEGIN { 15 my $stash = Package::Stash->new('Foo'); 16 $stash->get_or_add_symbol('$bar'); 17} 18 19is($warnings, ''); 20 21done_testing; 22