Re: [MacPerl-Toolbox] QuickDraw and MacWindows

[kpreid@ibm.net (Kevin Reid)]

> At 5:14 pm -0400 26/06/00, Kevin Reid wrote:
> 
> >Looks pretty good, except that you could use a subroutine reference
> >rather than eval()ing the code every time.
> 
> I'm sure you are right, but how exactly do you sidestep the need for 
> an eval() in this situation?
> 
> It would be nice to avoid the klunky syntax "DRAWING(q(...));". Any 
> ideas?

#!perl -w

sub DRAWING (&) {
  my ($sub) = @_;
  &$sub; # or save it for later
}

DRAWING {
  print "foo\n"; 
};
__END__

-- 
 Kevin Reid: |    Macintosh:      
  "I'm me."  | Think different.

==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-toolbox-request@macperl.org