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