Re: Conditionally faking a module

in reply to Conditionally faking a module

BEGIN {
  if( eval { require Cava::Pack; 1 } ) {
     import Cava::Pack;
  } else { 
    no strict 'refs';
    *Cava::Pack::Resource = sub { $Cava::Pack::dir . '/' . $_[0]; };

    *Cava::Pack::SetResourcePath = sub { $Cava::Pack::dir = $_[0]; };
    *Cava::Pack::GetInfoProductVersion = sub { "0.9.9.0"; };
  } ## end unless ( eval { require Cava::Pack...})
} ## end BEGIN
[download]

Comment on Re: Conditionally faking a module Download Code

Replies are listed 'Best First'.
Re^2: Conditionally faking a module by wanna_code_perl (Friar) on Jan 13, 2010 at 19:03 UTC
This was the ticket. Thanks!	[reply]

In Section Seekers of Perl Wisdom