The subroutine changes its own definition. I'd certainly call that self-modifying.

No, it doesn't. The subroutine's definition is what is inside the code block which gets assigned to the CODE typeglob entry of that named sub. The code reference is changed, nothing else. The rest is providing for something like an INIT block attached to a subroutine.

That's not clear, at first glance, wich is the only objection I have to it. I wonder whether Perl 6 has some better semantics for that.

update: using the AutoLoader, the OP's code could be rewritten in a foo.al: 

call_me_only_once();

sub foo {
    # the real foo()
    ...
}
1;

[download]

and we would all be happy autoloading foo and having call_me_only_once() be called just once.

Would that be self-modifying code?

--shmem 

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

In reply to Re^8: Is modifying the symbol table to redefine subroutines evil? by shmem
in thread Is modifying the symbol table to redefine subroutines evil? by tlm

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.