Import von Modulen zusammenfassen (gelöst) - #142178 (Fragen zu Perl-Modulen)

bloonix

2010-10-26 09:40

User since
2005-12-17
1615 Artikel
HausmeisterIn

So sollte es gehen:

Code (perl): (dl )

package Foo;
use strict;
use warnings;

my @modules = qw(
    Data::Dumper
);

sub import {
    my $package = caller();

    foreach my $mod (@modules) {
        my $code = "package $package; use $mod;";
        eval $code;
        die $@ if $@;
    }
}

1;

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use lib '.';
use Foo;

print Dumper({ fruit => "banana" });

So macht es zum Beispiel CPAN:

POE.

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.