Re: 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

Comment on Re: A Macro System for Perl? Download Code

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]
Re^3: A Macro System for Perl? by cramdorgi (Acolyte) on Mar 26, 2008 at 08:32 UTC
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]
Re^4: A Macro System for Perl? by samtregar (Abbot) on Mar 26, 2008 at 15:40 UTC
Oh sure, that could work. Except that this conversation happened 6 years ago! And went no where! -sam	[reply]