in reply to Re: Conditionally override 'time' builtin with Time::HiRes::time()
in thread Conditionally override 'time' builtin with Time::HiRes::time()
Ah, perfect!
Here's what I really want, though:
UPDATE (Fri Apr 30 11:15:23 PDT 2004):#!/usr/bin/perl -w use strict; BEGIN { Time::HiRes->import('time') if eval "require Time::HiRes"; } my $time = time; print "$time\n";
Your advice is well-received, chip! Changed the eval EXPR to eval BLOCK. As for letting the user know, that is also a good idea. I left that out for brevity. This is actually for a patch to Net::IRC, so I'll let Jeremy (the maintainer) decide weather he wants to emit a warning.
#!/usr/bin/perl -w use strict; BEGIN { Time::HiRes->import('time') if eval { require Time::HiRes }; } my $time = time; print "$time\n";
---
"A Jedi uses the Force for knowledge and defense, never for attack."
"A Jedi uses the Force for knowledge and defense, never for attack."
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Re: Conditionally override 'time' builtin with Time::HiRes::time()
by chip (Curate) on Apr 30, 2004 at 00:33 UTC |
In Section
Seekers of Perl Wisdom