diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-03 20:35:52 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-03 20:35:52 +0000 |
| commit | 36c71dae935ba4b18896ffcfc069a64130731dfd (patch) | |
| tree | e6f800c681a3df06ff8b080fb8ca9463485ace27 /MDK | |
| parent | 1696c19c569ce62fbe585a52ce3cf55a9bedb919 (diff) | |
| download | perl-MDK-Common-36c71dae935ba4b18896ffcfc069a64130731dfd.tar perl-MDK-Common-36c71dae935ba4b18896ffcfc069a64130731dfd.tar.gz perl-MDK-Common-36c71dae935ba4b18896ffcfc069a64130731dfd.tar.bz2 perl-MDK-Common-36c71dae935ba4b18896ffcfc069a64130731dfd.tar.xz perl-MDK-Common-36c71dae935ba4b18896ffcfc069a64130731dfd.zip | |
generate the doc in Common.pm from Common/*.pm
Diffstat (limited to 'MDK')
| -rw-r--r-- | MDK/.cvsignore | 1 | ||||
| -rw-r--r-- | MDK/Common.pm.pl (renamed from MDK/Common.pm) | 22 |
2 files changed, 20 insertions, 3 deletions
diff --git a/MDK/.cvsignore b/MDK/.cvsignore new file mode 100644 index 0000000..d74cfd1 --- /dev/null +++ b/MDK/.cvsignore @@ -0,0 +1 @@ +Common.pm diff --git a/MDK/Common.pm b/MDK/Common.pm.pl index 5819b01..328ace6 100644 --- a/MDK/Common.pm +++ b/MDK/Common.pm.pl @@ -1,3 +1,6 @@ + + +print <<'EOF'; =head1 NAME MDK::Common - miscellaneous functions @@ -27,11 +30,23 @@ L<MDK::Common::String>, L<MDK::Common::System>, L<MDK::Common::Various>. -=head1 EXPORTS +EOF + +foreach my $f (<MDK/Common/*.pm>) { + (my $pkg = $f) =~ s|/|::|g; + open F, $f or die "can't open file $f"; + while (<F>) { + if (/^=head1 (EXPORTS|OTHER)/ .. /^=back/) { + s/^=head1 EXPORTS/=head1 EXPORTS from $pkg/; + s/^=head1 OTHER/=head1 OTHER in $pkg/; + s/^=back/=back\n/; + print; + } + } +} -C<MDK::Common> exports the functions in the package mentioned above. See their -manpage for more. +print <<'EOF'; =head1 COPYRIGHT Copyright (c) 2001 MandrakeSoft <pixel@mandrakesoft.com>. All rights reserved. @@ -58,3 +73,4 @@ use vars qw(@ISA @EXPORT $VERSION); #); $VERSION = "1.0"; 1; +EOF |