Symbol::Global::Name − finds name and type of a global variable
package My;
our $VERSION = '0.1';
use Symbol::Global::Name;
print Symbol::Global::Name−>find( \$VERSION );
# prints '$My::VERSION'
Lookups symbol table to find an element by reference.
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 ’*’.
Ruslan Zakirov <[email protected]>
Under the same terms as perl itself.