SYNOPSIS
package My;
our $VERSION = '0.1';
use Symbol::Global::Name;
print Symbol::Global::Name->find( \$VERSION );
# prints '$My::VERSION'
DESCRIPTION
Lookups symbol table to find an element by reference.METHODS
find
Symbol::Global::Name->find( \$VERSION ); Symbol::Global::Name->find( \$VERSION, package => 'My::Package' ); Symbol::Global::Name->find( reference => \$VERSION ); Symbol::Global::Name->find( reference => \$VERSION, package => 'My::Package' );
Takes a reference and optional package name. Returns name of the referenced variable as long as it's in the package or sub-package and it's a global variable. Returned name is prefixed with type sigil, eg. '$', '@', '%', '&' or '*'.
AUTHOR
Ruslan Zakirov <[email protected]>LICENSE
Under the same terms as perl itself.