NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
use Perl Log In
chromatic (983)
chromatic
(email not shown publicly)
http://wgz.org/chromatic/
(email not shown publicly)
http://wgz.org/chromatic/
Blog Information [technorati.com]
Profile for chr0matic [technorati.com]
Thursday April 17, 2003
06:52 PM
lvalue typeglobs
I've always wondered if this would work, but never tried it until now. It worked on the first try. Does that say more about me or Perl?
#!/usr/bin/perl -w
use strict;
sub installsub: lvalue
{
my $glob = shift;
no strict 'refs';
*{ $glob };
}
installsub( 'foo' ) = sub { print "Foo!\n" };
foo();
Of course, that's not bad enough:
for my $sub (qw( bar baz ))
{
installsub( $sub ) = sub { print "$sub\n" };
__PACKAGE__->can( $sub )->();
}
Worse yet, I have an actual factual practical use in mind.
The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
--Larry Wall in stab.c from the perl source code
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Uh oh ... (Score:3, Funny)
Um, er, ah ... I hope I'm not somewhat responsible for that. I seem to recall having a beer in my hand at the time. It was the beer -- THE BEER, I TELL YOU!
Reply to This
Hrmm (Score:3, Interesting)
Were that I say, pancakes?
Reply to This
Using AUTOLOAD to do the same trick. (Score:4, Insightful)
use strict;
use warnings;
sub AUTOLOAD : lvalue {
no strict 'refs';
*$::AUTOLOAD;
}
foo () = sub {print "Foo!\n"};
foo ();
__END__
Foo!
Reply to This
More about you (Score:3, Funny)
It says you are one sick puppy. ;-)
Of course, Abigail isn't very far. But we already knew that.
I should really stop replying to journals on Friday....
Reply to This