Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^2: Conditionally faking a module

by wanna_code_perl (Pilgrim)
on Jan 13, 2010 at 19:01 UTC ( #817258=note: print w/replies, xml ) Need Help??


in reply to Re: Conditionally faking a module
in thread Conditionally faking a module

Unfortunately, your example doesn't work:

eval "use Cava::Pack" or do { die "Using faked out Cava::Pack\n"; }

I see the "Using faked out Cava::Pack" message on both Linux and Win32 (where Cava::Pack is indeed available).

Replies are listed 'Best First'.
Re^3: Conditionally faking a module
by bobf (Monsignor) on Jan 13, 2010 at 19:14 UTC
Re^3: Conditionally faking a module
by Anonymous Monk on Jan 13, 2010 at 21:27 UTC
    That is the reason for a true value, 1
    eval "use Cava::Pack; 1" or die "Oh noes! $@"; eval "use HOW::Cava::Pack; 1" or die "HOW!?! $@"; __END__ HOW!?! Can't locate HOW/Cava/Pack.pm in @INC (@INC contains: C:/perl/5 +.10.1/lib/MSWin32-x86-multi-thread C:/perl/5.10.1/lib C:/perl/site/5. +10.1/lib/MSWin32-x86-multi-thread C:/perl/site/5.10.1/lib .) at (eval + 2) line 1. BEGIN failed--compilation aborted at (eval 2) line 1.
    Hmm, I don't recall installing Cava::Pack :)
Re^3: Conditionally faking a module
by ikegami (Pope) on Jan 15, 2010 at 18:01 UTC

    The code being executed by eval ("") returns nothing (()), which is indistinguishable from the value eval returns on failure.

    You need

    eval "use Cava::Pack; 1"

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://817258]
help
Chatterbox?
[Corion]: Lady_Aleena: Quite good ;) I'm working four days now, instead of five, which helps my mood and my weekends tremendously
[Corion]: My Perl output hasn't recovered, but as $work is still somewhat stressful, I don't think this would be different with a five day workdweek
[Lady_Aleena]: Corion, that is a good thing (TM) 8)
[Corion]: And this evening, I'm actually dusting off some old module of mine and bringing it up to the last version of the library I'm wrapping
[Lady_Aleena]: Updating things can be fun, if there is a better way to do it.
[Corion]: Lady_Aleena: Mostly, it's just housekeeping, but it inspires me about things I could do with it, so that's good ;)
[Lady_Aleena]: By the way, I stopped by to let someone know I'm still alive, though I haven't found anything to write in perl for a while now.
[Lady_Aleena]: I need inspiration.

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2017-09-24 18:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    During the recent solar eclipse, I:









    Results (274 votes). Check out past polls.

    Notices?