#!/usr/bin/env perl
use strict;
use warnings;
+use lib 't/lib';
use Test::More;
use Package::Stash;
}
my $stash = Package::Stash->new('Foo');
+{ local $TODO = $] < 5.010 ? "undef scalars aren't visible on 5.8" : undef;
ok($stash->has_symbol('$SCALAR'), '$SCALAR');
+}
ok($stash->has_symbol('$SCALAR_WITH_VALUE'), '$SCALAR_WITH_VALUE');
ok($stash->has_symbol('@ARRAY'), '@ARRAY');
ok($stash->has_symbol('%HASH'), '%HASH');