1#!/usr/bin/env perl 2# -*- perl -*- 3 4# 5# $Id: inline2dist.pl,v 1.2 2002/11/13 23:17:28 eserte Exp $ 6# Author: Slaven Rezic 7# 8# Copyright (C) 2001 Slaven Rezic. All rights reserved. 9# 10 11use ExtUtils::MakeMaker; 12 13my $name = shift || die "Name missing"; 14(my $file = $name) =~ s/(.*::)//; 15my $basefile = $file; 16$file .= ".pm"; 17my $version = MY->parse_version($file); 18die "Can't get version from $file" if !defined $version; 19 20my $extra_use = ""; 21if (-e "${basefile}Perl.pm") { 22 $extra_use = "use ${name}Perl;\n"; 23} 24 25my $dest = "${basefile}Dist.pm"; 26open(W, "> $dest") or die "Can't write to $dest: $!"; 27print W <<EOF; 28# -*- perl -*- 29# DO NOT EDIT, generated by $0 from $name 30 31package ${name}Dist; 32 33package ${name}; 34require DynaLoader; 35unshift \@ISA, 'DynaLoader'; 36#use base 'DynaLoader'; 37\$VERSION = "$version"; 38$extra_use 39bootstrap $name \$VERSION; 40 411; 42EOF 43close W; 44 45__END__ 46