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