use warnings;
use Test::Simple tests => 3;
# Test wether or not the target of a symbolic reference is declared.

my  $xxx ;
our $yyy;

{
    use strict vars;
    my $sym_ref;

    $sym_ref = '$xxx';
    ok ( do{eval $sym_ref; !$@}, 'declared lexical');

    $sym_ref = '$yyy';
    ok ( do{eval $sym_ref; !$@}, 'declared package');
    
    $sym_ref = '$zzz';
    ok (!do{eval $sym_ref; !$@}, 'not declared');   # Note: !do.....

}