MDK::Common.pm(3) User Contributed Perl Documentation MDK::Common.pm(3)NAME
MDK::Common - miscellaneous functions
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);
DESCRIPTION
"MDK::Common" is a collection of packages containing various simple
functions: MDK::Common::DataStructure, MDK::Common::File,
MDK::Common::Func, MDK::Common::Math, MDK::Common::String,
MDK::Common::System, 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.
perl v5.16.3 2012-04-02 MDK::Common.pm(3)