Modul zum bedingten laden von Modulen (gelöst) - #169834 (Allgemeines zu Perl)

Kuerbis

2013-08-30 13:37

User since
2011-03-20
943 Artikel
BenutzerIn
[default_avatar]

Hallo,

ist das so in Ordnung, für ein Module, das je nach Betriebssystem ein bestimmtes Modul laden soll. Hätte die typeglob Methode Vorteile?

Code (perl): (dl )

package Term::Choose::Portable;
use strict;

use Exporter 'import';
our @EXPORT_OK = qw(choose);


if ( $^O eq 'MSWin32' ) {
    require Term::Choose::Win32;
    #*choose = \&Term::Choose::Win32::choose;
    Term::Choose::Win32::->import( 'choose' );

}
else {
    require Term::Choose;
    #*choose = \&Term::Choose::choose;
    Term::Choose::->import( 'choose' );
}

1;