print qualify(\*x, "FOO"), "\n"; # returns \*x
use strict refs;
- print { ref_qualify $fh } "foo!\n";
- $ref = ref_qualify $name, $pkg;
+ print { qualify_to_ref $fh } "foo!\n";
+ $ref = qualify_to_ref $name, $pkg;
=head1 DESCRIPTION
left unchanged under the assumption that they are glob references,
which are qualified by their nature.
-C<Symbol::ref_qualify> is just like C<Symbol::qualify> except that it
-returns a glob ref rather than a symbol name. You can use the result
+C<Symbol::qualify_to_ref> is just like C<Symbol::qualify> except that it
+returns a glob ref rather than a symbol name, so you can use the result
even if C<use strict 'refs'> is in effect.
=cut
require Exporter;
@ISA = qw(Exporter);
-
-@EXPORT = qw(gensym ungensym qualify ref_qualify);
+@EXPORT = qw(gensym ungensym qualify qualify_to_ref);
$VERSION = 1.02;
$name;
}
-sub ref_qualify ($;$) {
+sub qualify_to_ref ($;$) {
return \*{ qualify $_[0], @_ > 1 ? $_[1] : caller };
}