#!/usr/bin/perl

use strict;
use warnings;
#use Globals_S; use Globals_A; use Globals_H;
use Globals;
use vars qw($myvar @myvar);
use Smart::Comments;
use Devel::FindRef;
use Xyzzy qw(FullyQualify);

print "passing refs:\n";
print "\&FullyQualify is @{[FullyQualify(\&FullyQualify)]}.\n";
print "\$Var is ".join (' ',FullyQualify(\$Var)).".\n";
print "\%var is ".join (' ',FullyQualify(\%var)).".\n";
print "\@var is ".join (' ',FullyQualify(\@var)).".\n";
print "\$var is ".join (' ',FullyQualify(\$var)).".\n";

print "\nThe following is less reliable see the Devel::Symdump documenation\n";
print "passing strings:\n";
for (qw(FullyQualify Var var Globals::var)) {
    print "'$_' is @{[FullyQualify($_)]}\n";
} ;


exit;