Re: Check for modules presence
- From: sormariano@xxxxxxxxx (Francesco Rotondella)
- Date: Tue, 02 Sep 2008 17:13:58 +0200
Rob Dixon wrote:
[...]
All it does is to put some stub code in place of any missing modules, with an
import routine that just pushes the name of the package onto array
@main::NOTFOUND. Then the CHECK block code just reports the contents of that
array and dies if it's not empty.
There are a number of issues with it, such as it only detecting missing modules
that have had their import routine called, but that's what use does anyway.
There are also probably others, but it's a start. See how you get on with it.
Hello,
I tried to understand what you wrote to me, reading perl docs but I have still a lot (too many) of doubts.
I adapted your code below to what I need but there are stil things I dont' understand and so I'm here again to ask.
First of all I don't understand how the @_ contains all the not found modules.
Where they are coming from ? @_ contains the sub incoming parameters.
But why are these only the unresolved modules (and not only: I'll explain later) ?
Does the push @INC, statement modifies the @INC array ? I traced it before and after and I noticed no changes.
It reports also some errors on xxxx.al files. It seems that I use not properly some methods of some widgets.
For example: I use this delete method
$tree->delete('all');
where $tree is created as:
my $tree = $left_fr->Scrolled('Tree')->pack(-expand => 1, -fill => 'both');
I got:
syntax error at /loader/0x9964f24//usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Tk/Frame/delete.al line 2, near "package ::usr::lib::perl5::site_perl::5.8.5"
Compilation failed in require at /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/Tk/Widget.pm line301.
at ./test.pl line 417
Why this ?
Thank you in advance
Francesco
HTH,
Rob
use strict;
use warnings;
our @NOTFOUND;
BEGIN {
push @INC, sub {
my ($self, $package) = @_;
$package =~ s#/#::#g;
$package =~ s#\.pm$##;
my $module = qq{
package $package;
sub import { push \@main::NOTFOUND, '$package'; }
1;
};
open my $fh, '<', \$module;
return $fh;
}
}
CHECK {
if (@NOTFOUND) {
die "Modules not installed: ". join ', ', @NOTFOUND;
}
}
.
- Prev by Date: Re: Regex in a variable
- Next by Date: Re: Perl equivalent of "sed -f" or "awk -f"
- Previous by thread: Perl equivalent of "sed -f" or "awk -f"
- Next by thread: XS array of arrays
- Index(es):
Relevant Pages
|
