Re^4: How to de-reference a coderef?

I can tell you're already happy with the solution you've got, but I'd like to recommend a few alternates anyway. :-)

I think you're losing a lot of flexibility by requiring the passed in coderef to be a named sub in the same namespace. Any time you're passing around coderefs, anonymous subs become more and more useful. To this end, I can think of a few ways to allow them:

Pass in a label along with the coderef. This would allow the caller to use anonymous coderefs as well as refs to named subs, and would avoid the "in another namespace" problem.
Pass in a label, but only optionally. If there is no label, the symbol table is searched. If there is one, it's used instead.
Pass in an object. At first this sounds a bit ugly, but it could be something as simple as:
```
    foobar(Code::Wrapper->new( code => \&foo ));
    foobar(Code::Wrapper->new( code => sub { "baz" }, label => "baz" )
+)
[download]
```
Then this object could encapsulate the behavior mentioned earlier, by either searching the symbol table or using the specified label.

Which one you choose depends on how much flexibility you want in the future, and how much you want to insulate certain parts of your code from others. I have a feeling you will just go with the symbol table scan, but hopefully you'll at least give my ideas some consideration.

Comment on Re^4: How to de-reference a coderef? Download Code

Replies are listed 'Best First'.
•Re^5: How to de-reference a coderef? by merlyn (Sage) on Dec 09, 2004 at 18:02 UTC
To make that even simpler, you could write a subroutine called `Sub` that takes a coderef argument and records its file and line number and returns an object that when used as a coderef invokes the coderef, but when used as a string returns the filename/linenumber of creation. How's that for slick? I may even have to code that up for a snippet. Usage would be something like: `my $sub = Sub { my $x = shift; print $x }; $sub->("foo"); # prints foo print "that was from $sub\n";` [download] Pretty simple to do. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply. update: see Track the filename/line number of an anonymous coderef.	[reply] [d/l]
Re^6: How to de-reference a coderef? by Anonymous Monk on Dec 09, 2004 at 20:50 UTC
I'd like to see this, namely as in my head I can only imagine the syntax of... my $sub = Sub sub { my $x = shift; print $x }; Being that I thought { } was the anonymous hash composer. I'm really curious about this though, and syntax reduction in general. Writing things that act like Ruby/Groovy blocks is kind of ugly when you have to use the sub keyword all of the time.	[reply]
•Re^7: How to de-reference a coderef? by merlyn (Sage) on Dec 10, 2004 at 00:06 UTC
Well, a trivial implementation of `Sub` is `sub Sub (&) { return shift }` [download] but that doesn't do the blessing and overloading. You'll get to use the syntax of: `my $s = Sub { print +shift } $s->('hello');` [download] just as I indicated before. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l] [select]


There's more than one way to do things
	PerlMonks