http://qs321.pair.com?node_id=869410


in reply to typeglob/symbolic reference question

Have you considered Sub::Install?
perl -MSub::Install=install_sub -e 'install_sub({code => sub{print "g +reen".$/}, into => +__PACKAGE__, as => "color"}); color()' green

print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});

Replies are listed 'Best First'.
Re^2: typeglob/symbolic reference question
by BrowserUk (Patriarch) on Nov 04, 2010 at 14:36 UTC

    Why? In the end, it does exactly the same thing:

    *{"$pkg\::$name"} = $code;

    but a hell of a lot more convolutely.

    And along the way, eschews using perfectly good Perl in favour of long laborious constructs because the author prefers to "whore for Devel::Cover"

    # I'd rather use ||= but I'm whoring for Devel::Cover. for (qw(into from)) { $arg->{$_} = $calling_pkg unless $arg->{$_} +}

    That's just ...


    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.