Re: Accessing a scalar value in another subroutine?

[james2vegas]

Perhaps something like this, using Attribute-Handlers and putting the attribute in UNIVERSAL, which would, obviously, be optional:

package DocString;
use Attribute::Handlers;
use Data::Dumper;
no warnings 'redefine';

our $docstrings;

# sub Doc :ATTR(CODE) {
sub UNIVERSAL::Doc :ATTR(CODE) {
    my ($package, $symbol, $referent, $attr, $data, $phase, $filename,
+ $linenum) = @_;
    $docstrings->{ $package }{ *{$symbol}{NAME} } = "@$data";
}

# you could also have a docstring function exported from this module t
+hat, given a package
# and a sub returns 
# $DocString::docstrings->{$pkg}{$sub});

1;

which could be used like this:

package Forble;
use strict;
use warnings;
use DocString;

sub veeblefaz :Doc("This method does the 2nd kind of veeblefaz operati
+on!") {   
    # this can be called from elsewhere, with the appropriate package 
+and sub names
    print Dumper($DocString::docstrings->{+__PACKAGE__}{veeblefaz});  
+          
}

1;