Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

RE: Number of times I've used goto in Perl

by dlc (Acolyte)
on Apr 19, 2000 at 21:02 UTC ( #8057=note: print w/replies, xml ) Need Help??


in reply to Number of times I've used goto in Perl

Goto is almost required when you use the AUTOLOADer, as such:

sub AUTOLOAD {
    no strict 'refs';
    $AUTOLOAD =~ s/.*:://;

    *{ $AUTOLOAD } = sub { return ${ $AUTOLOAD }; };

    goto &{ $AUTOLOAD };
}
  • Comment on RE: Number of times I've used goto in Perl

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://8057]
help
Chatterbox?
[choroba]: and 99 bottles of beer in 217
[Discipulus]: yes I know, bro' and I also know I cannot compete. But no one ask for oneliners.. ;=)

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (7)
As of 2017-10-22 20:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (275 votes). Check out past polls.

    Notices?