On 3 May 2001, Andreas J. Koenig wrote:
> >>>>> On Sun, 29 Apr 2001 01:04:07 +0200 (CEST), "echo 'Rudolf Polzer'>/dev/null"
><[EMAIL PROTECTED]> said:
>
> > Name: Rudolf Polzer
> > Interface style: f
> > Mail: [EMAIL PROTECTED]
> > UserID: rpolzer
>
> Done
>
> > Module I am planning to contribute: autodetection of modules
> > DSLI: Mdpf
> > Description: Autodetect of modules: find available module
>
> What's the name of the module? Module::Detect sounds OK,
> Module::Detect::Use sounds overkill. Module::Find would also be cute.
You can import Use():
use Module::Detect qw/:standard/;
my $package = Use 'myCGI', 'CGI';
or, the new interface:
my $pack_obj = Load 'myCGI', 'CGI';
$pack_obj->call_some_function ();
# perhaps myCGI::call_some_function()
${$pack_obj->(SCALAR => 'a')} = 13;
# perhaps $myCGI::a = 13
> Some function in it could return the path to the module without
> actually trying to require it. Another function could then require it.
This cannot be done using the detection method I use; I just do a
'require' to find out if the module exists!
> Or some such.
Since the last bugs are fixed (misleading error messages when accessing
package subs that do not exist) I think I can release it now.
> If you've made up your mind, please apply for registration with the
> "Apply for namespace registration" menu on PAUSE. Thank you!
I'll do it.
--
#!/usr/bin/perl -- Exercise: prove _or_ disprove that _all_ digits
############################ displayed are 1! s/^/4711081542426/g;
use strict;$|=@_=$0=2;for(;;){do{++$0}while('@'x$0)=~/^(..+)\1+$/;
push@_,$0;for((2-@_)..0){$_[-$_]=abs($_[-$_]-$_[1-$_])}print$_[0]}
