Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: A Macro System for Perl?

by cramdorgi (Acolyte)
on Mar 25, 2008 at 21:41 UTC ( [id://676248]=note: print w/replies, xml ) Need Help??


in reply to A Macro System for Perl?

Is this the solution to my problem? I've been trying to write a Modulino, and wondered what to do if it calls exit...
Tried that: 
#!/usr/bin/perl -w

sub testrun() {
    my $r = run('noexit');
    print "ret: $r\n";
}
sub run {
    my $noexit = shift;
    my $retorexit = $noexit ? \&return : \&exit;
    &$retorexit(1);
}
testrun();

[download]
...but got 
Undefined subroutine &main::return called at ./foo line 10.
retorexit could indeed be a macro...
No?

Marc

Replies are listed 'Best First'.
Re^2: A Macro System for Perl?
by samtregar (Abbot) on Mar 25, 2008 at 21:47 UTC
    No.
[reply]
      2 letter reply... Could it be that I was too terse?

      I meant obviously: 

      macro retorexit() {
   if ($noexit) { return $_; } else { exit $_; }
}

      [download]

      As I see this as a good example of a useful macro, the only other way I can interpret your reply is that you know an obvious other way to do this elegantly.
      May I ask which?

      Marc

[reply]
[d/l]
        Oh sure, that could work. Except that this conversation happened 6 years ago! And went no where!

        -sam

[reply]

In Section Meditations

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://676248]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others romping around the Monastery: (3)
As of 2024-04-26 02:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found