Next Tricks of the Wizards 61

Config.pm

     use Config;
     print "osname = $Config{osname}\n";
     print "install module manuals into  = $Config{installman3dir}\n";
        osname = linux
        install module manuals into  = /usr/local/man/man3
     package Config;
     ...
     @EXPORT = qw(%Config);
     ...
     sub import {
       ...

       *{"$callpkg\::Config"} = \%Config;
     }
     ...
     tie %Config, 'Config';
     1;


Next Copyright © 2003 M. J. Dominus