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

[thread]15559[/thread]

Import von Modulen zusammenfassen [gelöst]

Leser: 23

Articles: hide open all | hide show old branches

+4 replies
Manuel

2010-10-21 16:53
User since
2010-03-25
2 Artikel
BenutzerIn
Hallo,
heute mal eine etwas abgedrehte Idee: Ich programmiere ein größeres Projekt mit Moose, MooseX::Params::Validate etc. In den ganzen Modulen, die ich erstelle, muss ich die benutzen Module immer und immer wieder einbinden. Jetzt stellt sich mir (als faulem Menschen) die Frage, ob man diese Präambel nicht abkürzen kann. Ich stelle mir ein "Meta-Modul" vor, welches ich einbinde. Dieses exportiert/importiert/... dann alle "Standard-Module", die ich so benötige.

Als Beispiel mal das "Meta--Module" MyApp/Meta.pm:
Code: (dl )

1 2 3 4

use Moose; use MooseX::Params::Validate; use Data::Dumper; use Log::Log4perl qw/:easy/;
In meinem erstem Modul MyApp/Modul1.pm sollte kann ich dann einfach schreiben:
Code: (dl )

1 2 3 4 5 6

package MyApp::Modul1; use MyApp::Meta; sub foo { print Dumper(@_); }
Das funktioniert auch wunderbar!

Wenn ich jetzt allerdings ein zweites Modul MyApp/Modul2.pm implementiere:
Code: (dl )

1 2 3 4 5 6

package MyApp::Modul2; use MyApp::Meta; sub bar { print Dumper(@_); }
beschwert sich der Perl Interpreter, da "Undefined subroutine &MyApp::Modul2::Dumper called at MyApp/Modul2.pm". Versteht sich!

Jetzt ist die Frage: Kann ich mit irgendwelcher Perl-Black-Magic den Inhalt von MyApp::Meta "mehrfach" importieren, sodass er in jedem importierenden Modul verfügbar ist?

Ich meine irgendwo im Netz so etwas mal gelesen zu haben, kann es jedoch leider nicht mehr finden. :-(

Vielen Dank,
Manuel
- +2 replies
- frankes
  
  2010-10-21 19:25
  
  User since
  2005-04-02
  140 Artikel
  BenutzerIn
  
  So was ?
  
  http://books.google.com/books?id=P295LDzkVbQC&pg=P...
  
  Edit: Link angepasst
  Last edited: 2010-10-21 19:29:08 +0200 (CEST)
  - Manuel
    
    2010-10-26 10:10
    
    User since
    2010-03-25
    2 Artikel
    BenutzerIn
    
    Hallo,
    das ist genau das, was ich gesucht habe. Ich habe zwar danach gegooglet, aber bin natürlich nicht auf die Idee gekommen, mal in den Büchern zu gucken, die ich im Schrank stehen habe!
    
    Vielen Dank für eure Hilfe!
    
    Manuel
- bloonix
  
  2010-10-26 09:40
  User since
  2005-12-17
  1615 Artikel
  HausmeisterIn
  So sollte es gehen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  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 )
  
  1 2 3 4 5 6 7
  
  #!/usr/bin/perl use strict; use warnings; use lib '.'; use Foo; print Dumper({ fruit => "banana" });
  
  So macht es zum Beispiel 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.

View all threads created 2010-10-21 16:53.