Re: Accessing a scalar value in another subroutine?

[Anonymous Monk]

Hi.

For example:

sub method1
{
    my $self = shift;
    my $docstring = "Prints information about X, Y, and Z";

    # ...
}

sub help
{
    my $self = shift;
    my $method = shift;

    # Note: The following approach does not work.
    # I tried inserting the package name before the method name, i.e.,
+ $package_name::method::docstring, but that too was unsuccessful.    
+ 
    # 
    print $method::docstring, "\n";
}
<br/>
<br/>
Thanks.

[LanX]

I doubt this is a good idea $docstring is only initialized after method1 is called for the first time.

So you won't be able to inspect the docstring in advance.

But if that's OK for you you might wanna try PadWalker::peek_sub.

UPDATE:

Nope doesn't help, lexical are reset to undef after the function-scope is left.

  DB<135> sub tst { my $doc="bla" }
 => 0
 
  DB<136> PadWalker::peek_sub(\&tst)
 => { "\$doc" => \undef }
 
  DB<137> tst()
 => "bla"
 
  DB<138> PadWalker::peek_sub(\&tst)
 => { "\$doc" => \undef }