home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / Include.pm < prev    next >
Encoding:
Perl POD Document  |  2003-12-17  |  788 b   |  35 lines
  1. # $File: //member/autrijus/.vimrc $ $Author: autrijus $
  2. # $Revision: #14 $ $Change: 4137 $ $DateTime: 2003/02/08 11:41:59 $
  3.  
  4. package Module::Install::Admin::Include;
  5. use Module::Install::Base; @ISA = qw(Module::Install::Base);
  6.  
  7. $VERSION = '0.01';
  8.  
  9. sub include {
  10.     my ($self, $pattern) = @_;
  11.  
  12.     foreach my $rv ( $self->admin->glob_in_inc($pattern) ) {
  13.         $self->admin->copy_package(@$rv);
  14.     }
  15.     return $file;
  16. }
  17.  
  18. sub include_deps {
  19.     my ($self, $pkg) = @_;
  20.     my $deps = $self->admin->scan_dependencies($pkg) or return;
  21.  
  22.     foreach my $key (sort keys %$deps) {
  23.         $self->include($key);
  24.     }
  25. }
  26.  
  27. sub auto_include {
  28.     my $self = shift;
  29.     foreach my $module ( map $_->[0], map @$_, grep $_, $self->build_requires ) {
  30.         $self->include_deps($module);
  31.     }
  32. }
  33.  
  34. 1;
  35.