[svn:Module-Build] r13376 - Module-Build/branches/inc-bundling/lib/inc

Author: dagolden
Date: Mon Oct  5 04:36:42 2009
New Revision: 13376

Modified:
   Module-Build/branches/inc-bundling/lib/inc/latest.pm

Log:
added module pre-load feature to write(); eliminated DATA section

Modified: Module-Build/branches/inc-bundling/lib/inc/latest.pm
==============================================================================
--- Module-Build/branches/inc-bundling/lib/inc/latest.pm	(original)
+++ Module-Build/branches/inc-bundling/lib/inc/latest.pm	Mon Oct  5 04:36:42 2009
@@ -41,7 +41,7 @@
 
 sub write {
   my $package = shift;
-  my ($where) = @_;
+  my ($where, @preload) = @_;
 
   warn "should really be writing in inc/" unless $where =~ /inc$/;
 
@@ -49,7 +49,20 @@
   File::Path::mkpath( $where );
   my $fh = IO::File->new( File::Spec->catfile($where,'latest.pm'), "w" );
   print {$fh} "# This stub created by inc::latest $VERSION\n";
-  print {$fh} do {local $/; <DATA>};
+  print {$fh} <<'HERE';
+package inc::latest;
+use strict;
+use vars '@ISA';
+require inc::latest::private;
+@ISA = qw/inc::latest::private/;
+HERE
+  if (@preload) {
+    print {$fh} "\npackage inc::latest::preload;\n";
+    for my $mod (@preload) {
+      print {$fh} "inc::latest->import('$mod');\n";
+    }
+  }
+  print {$fh} "\n1;\n";
   close $fh;
 
   # write inc/latest/private;
@@ -230,11 +243,3 @@
 
 =cut
 
-__DATA__
-package inc::latest;
-use strict;
-use vars '@ISA';
-require inc::latest::private;
-@ISA = qw/inc::latest::private/;
-1;
-