Try this out. You'll note that the lexical's name is directly stored as '%method'. This isn't documented since you have to reach into the guts to get a lexical's name back out again so unless you're doing something really, highly unusual it doesn't show up.

=pod

Sample output ...
Names
no name
'%methods'
no name
Values
B::AV=SCALAR(0x8cb00)
B::HV=SCALAR(0x8cb18)
B::NULL=SCALAR(0x8cb30)

=cut

use strict;
use warnings;
no warnings 'uninitialized';
use constant DEBUG => 1;
use B;

{
    # Get my new really private object where even
    # the methods are hidden
    my $object = new object;

    # and now violate it. Privacy? Ha!
    my $c_hash = extractLexHash( $object );
    while (my ($key, $val) = each %$c_hash ) {
        print "$key\t@$val\n";
    }
}

sub extractLexHash {
    my $Obj = B::svref_2object($_[0]);
    my ($LexicalNames,
        $LexicalValues) =
            map { [ $_->ARRAY ] } $Obj->PADLIST->ARRAY;
    # for a cheap thrill print the contents of
    # $LexicalNames

    if (DEBUG) {
        print "Names\n";
        print "@{[$_->can('PV') ? \"'\".$_->PV().\"'\" : 'no name']}\n
+" for @$LexicalNames;
        print "Values\n";
        print "$_\n" for @$LexicalValues;
        exit;
    }

    my %Lexicals = ();
    for my $index
        (0 ..
         # min(@LexicalNames, @LexicalValues)
         (@$LexicalNames < @$LexicalValues ? @$LexicalNames : @$Lexica
+lValues)) {
        next unless B::class($LexicalNames->[$index]) eq 'PVNV';
        my @values = $LexicalValues -> [$index] -> ARRAY;

        while (@values) {
            my $LexicalName = shift @values;
            my $LexicalObj = shift @values;
            $Lexicals{$LexicalName} = [ $LexicalName,
                                        bless(B::svref_2object(\$Lexic
+alName),'B::IV')->IVX,
                                        $LexicalObj->RV ];
        }
    }
    return \%Lexicals;
}

package object;
sub new {
    my %methods;
    %methods =
        ( me => sub { print "me!\n" },
          you => sub { print "you!\n" } );

    bless sub { $methods{me}->() }, 'object';
}

[download]

In reply to Re^3: understanding my() and typeglobs (perl6) by diotalevi
in thread understanding my() and typeglobs by Ctrl-z

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.