Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Re^5: Macros, LFSPs and LFMs

by demerphq (Chancellor)
on Jun 15, 2003 at 14:20 UTC ( #266031=note: print w/replies, xml ) Need Help??


in reply to Re^5: Macros, LFSPs and LFMs
in thread Macros, LFSPs and LFMs

I can see your point here. Ive done things like this

sub assert{ my ($stmt,@args)=@_; my $ok=eval"$stmt" or die "Failed to eval assertion '$stmt':$@"; unless ($ok) { no warnings; my $str=eval qq("$stmt") or die "Failed to eval assertion '$stmt' as a string:$@"; die "Failed assertion '$str'\n"; } }

which works reasonably well, but obviously isn't as satisfactory as your approach, and could even be a security risk as presently written if it were run on untrustworthy data.

Anyway, Itll be nice though when the new stuff is out at a production grade. I look forward to it. :-)


---
demerphq

<Elian> And I do take a kind of perverse pleasure in having an OO assembly language...

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://266031]
help
Chatterbox?
[Perl300]: ok, and for future if I want to use local box for something similar, then will Email::Sender:: Simple be a good choice?
[1nickt]: It's a framework that allows you to specify the Transport agent to whatever you want. You could even write your own.
[1nickt]: Perl300 More doc
[hippo]: In that case, use Net::SMTPS and also encrypt your content before you send it eg. with Crypt::GPG

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (10)
As of 2017-10-17 16:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (234 votes). Check out past polls.

    Notices?