summaryrefslogtreecommitdiffstats
path: root/lib/MDK/Common.pm.pl
blob: 65f966659a65420adf9d24d30896a25735be6bed (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81


print <<'EOF';
package MDK::Common;

=head1 NAME

MDK::Common - miscellaneous functions

=head1 SYNOPSIS

    use MDK::Common;
    # exports all functions, equivalent to

    use MDK::Common::DataStructure qw(:all);
    use MDK::Common::File qw(:all);
    use MDK::Common::Func qw(:all);
    use MDK::Common::Math qw(:all);
    use MDK::Common::String qw(:all);
    use MDK::Common::System qw(:all);
    use MDK::Common::Various qw(:all);

=head1 DESCRIPTION

C<MDK::Common> is a collection of packages containing various simple functions:
L<MDK::Common::DataStructure>,
L<MDK::Common::File>,
L<MDK::Common::Func>,
L<MDK::Common::Math>,
L<MDK::Common::String>,
L<MDK::Common::System>,
L<MDK::Common::Various>.

EOF

foreach my $f (glob("lib/MDK/Common/*.pm")) {
    (my $pkg = $f) =~ s|/|::|g;
    $pkg =~ s!lib::!!;
    open my $F, $f or die "can't open file $f";
    my $line;
    local $_;
    while (<$F>) {
	$line++;
	if (/^=head1 (EXPORTS|OTHER)/ .. /^=back/) {
	    s/^=head1 EXPORTS/=head1 EXPORTS from $pkg/;
	    s/^=head1 OTHER/=head1 OTHER in $pkg/;
	    s/^=back/=back\n/;
	    /^\s+\n/ and warn "$f:$line: spaces only line\n";
	    print;
	}
    }
}


print <<'EOF';
=head1 COPYRIGHT

Copyright (c) 2001-2005 Mandriva <pixel@mandriva.com>. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut


use MDK::Common::DataStructure qw(:all);
use MDK::Common::File qw(:all);
use MDK::Common::Func qw(:all);
use MDK::Common::Math qw(:all);
use MDK::Common::String qw(:all);
use MDK::Common::System qw(:all);
use MDK::Common::Various qw(:all);

use Exporter;
our @ISA = qw(Exporter);
# perl_checker: RE-EXPORT-ALL
our @EXPORT = map { @$_ } map { values %{'MDK::Common::' . $_ . 'EXPORT_TAGS'} } grep { /::$/ } keys %MDK::Common::;

our $VERSION = "1.2.30";

1;
EOF