Is is possible to determine the "name" by which name a reference to sub is called?

There are two ways I can think of, neither of which are (IMHO) elegant and both of which are kludges since you're not really getting the calling info from the reference, but rather by how you defined them.

The first uses wrappers (anonymous or otherwise)...

$divesub  = sub { somesub('divesub')  };
$raisesub = sub { somesub('raisesub') };

sub somesub {
     if ( $_[0] eq "divesub") {
        &dive;
    } else {
        &surface;
    }
}

[download]

... while the second would be to rename your sub to the magical AUTOLOAD and point each reference to a non-existant sub so that it got ran instead ...

$divesub  = \&divesub;
$raisesub = \&raisesub;

sub AUTOLOAD {
    (my $sub = $AUTOLOAD) =~ s/.*:://;
    if ( $sub eq "divesub" ) {
        &dive;
    } else {
        &surface;
    }
}

[download]

    --k.


In reply to Re: sub calling name by Kanji
in thread sub calling name by Dogma

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.