Re: use package

This is untested, but based on the perldoc for use, I'd guess you could do something like:

BEGIN {
    my $module ;
    if ( $^O =~ /MSWin32/ ) {
        $module = 'Win32::DriveInfo' ;
    }
    else {
        $module = 'DiskFree' ;
    }
    require $module ;
    import $module ;
}
[download]

Update: Thanks samtregar, you're right, this won't do. Try something more like this:

BEGIN {
    if ( $^O =~ /MSWin32/ ) {
        require 'Win32/DriveInfo.pm' ;
        import Win32::DriveInfo ;
    }
    else {
        require 'DiskFree.pm' ;
        import DiskFree ;
    }
}
[download]

_______________
D a m n D i r t y A p e
Home Node | Email

Comment on Re: use package Select or Download Code

Replies are listed 'Best First'.
Re: Re: use package by samtregar (Abbot) on Jul 26, 2002 at 23:46 UTC
That doesn't work. The "magic" form of require where you give a package name instead of a path doesn't work with variables. Either do this: `eval "require $module"; die $@ if $@;` [download] Or this: `$module = "Win32/DriveInfo.pm"; require $module;` [download] -sam	[reply] [d/l] [select]
(tye)Re: (conditional) use package by tye (Sage) on Jul 28, 2002 at 05:26 UTC
Or slight improvement: `BEGIN { if( $^O =~ /MSWin32/ ) { require Win32::DriveInfo; import Win32::DriveInfo; } else { require Filesys::DiskFree; import Filesys::DiskFree; } }` [download] But note that you can't make use of the (conditional) compile-time magic such as calling the imported routines without using parens unless it happens that both modules import routines having that same name. This means that the BEGIN block is rarely of much use and can often be dropped. Further, I suggest that it is often a very good idea to drop the BEGIN block so that you don't accidentally try to make use of some conditional compile-time magic and release a version of your code that won't compile in the "other" case (or just so you save yourself the trouble of finding these bugs when you test the "other" case). It doesn't appear that either of these modules actually export any symbols. So they should probably have their documentation updated to replace use with require and you can probably drop both of the import lines above (as well as the BEGIN block): `if( $^O =~ /MSWin32/ ) { require Win32::DriveInfo; } else { require Filesys::DiskFree; }` [download] (: - tye (but my friends call me "Tye")	[reply] [d/l] [select]