All the Perl that's Practical to Extract and Report
use Perl Log In
Ovid (2709)
(email not shown publicly)
http://publius-ovidius.livejournal.com/
AOL IM: ovidperl (Add Buddy, Send Message)
Stuff with the Perl Foundation. A couple of patches in the Perl core. A few CPAN modules. That about sums it up.
Promises, promises
This seems like such a useful little function. Can you guess what it does and why?
sub promise($) {
my $subname = shift;
my $package = caller;
unless ($package->can('AUTOLOAD') ) {
# this should be in import()
require Carp;
Carp::confess("Package ($package) does not implement AUTOLOAD");
}
my $fq_name = "$package\::$subname";
my $autoload = "$package\::AUTOLOAD";
no strict 'refs';
*$fq_name = sub {
$$autoload = $fq_name;
goto &$autoload;
};
}
In fact, unless there's something else which does this and there's a fatal flaw, I think I might just upload this to the CPAN.
I pour myself a cup of strong coffee. :-)
-- Jarkko Hietaniemi
Think so (Score:1)
Installs a stub that delegates to
AUTOLOAD. Maybe because there are several of them in the class hierarchy and you want the one in the superclass to take precedence over the one in the subclass, for the methods it implements. Maybe it has to do with makingUNIVERSAL::canwork correctly.Re: (Score:2)
You got it. The promise delegates to AUTOLOAD and AUTOLOAD, of course, can safely overwrite that promise, if needed. This allows can() to behave correctly with various modules which rely on AUTOLOAD to function more-or-less correctly, even if can hasn't been overridden. It also allows you to fulfill a requires for a Moose role.
One thing it doesn't do is try to replace a reference to itself. That might be annoying if someone does this:
OK, maybe I'm just being stupid... (Score:1)
(or
if you want to install them dynamically)?
Re: (Score:2)
You know, I think I'm the one who's being stupid :) As Aristotle points out, my version gives greater dispatch control, but I honestly hadn't thought of that (this reminds me of the time I started writing "tail -f" in Perl before I came to my senses).