Gossamer Forum: General: Perl Programming: Possible with modules?

May 29, 2003, 9:35 AM

Andy

Veteran / Moderator (17364 posts)

May 29, 2003, 9:35 AM

Post #1 of 4

Shortcut

Possible with modules?

I've just been playing with something. Basically, what I want to do is something like;

Code:
#!/usr/bin/perl 

$type = "1"; # use 1 or 0 

if ($type) { 
  use One::Module; 
} else { 
  use Another::Module; 
}

The problem is, that I still get error messages for one of the modules. The whole idea behind this is to let a user decide what module they want to use. If they have one module installed, then they should be able to choose that one. If not, then they can use the old one.

Any suggestions? Is it even possible? Unsure

Cheers

Andy (mod)
andy@ultranerds.co.uk

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates

May 29, 2003, 9:41 AM

Paul

Veteran (19537 posts)

May 29, 2003, 9:41 AM

Post #2 of 4

Shortcut

Re: [Andy] Possible with modules? In reply to

Code:
sub _require 
#---------------------------------------------------------------- 
# Usage: _require($type); 

    my $type    = shift; 
    my $package = $type ? 'This::Module' : 'That::Module'; 

    { 
        local $SIG{__DIE__}; 
        eval { 
             require $package; 
        }; 
        $@ and die "Oops: $@";  
     } 

     return 1; 
}