Seems not useful.
$ cat t.pl
{
package A;
use strict;
sub _foo {
print "hello,world\n";
}
}
{
package B;
use strict;
A::_foo();
print $A::{_foo},"\n"; # _foo is in A's symbol table
}
$ perl t.pl
hello,world
*A::_foo
>by convention any function, variable, or hash key that begins with an
>underscore, '_',
>is considered to be private.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
