#!/usr/bin/perl
use strict;
use Getopt::Std::Strict 'h';
use Cwd;
use Time::Format;
my $abs_d = $ARGV[0] || cwd();
print STDERR usage() and exit if $opt_h;
print readme_output();
exit;
# $PM{NAME}
sub usage {
qq{$0 - generate README for perl distros
-h help
-r README
};
}
sub readme_output {
my $deps = join("\n ", split(/\n/, `pmused '$abs_d'`) );
my $projectname = `pmname '$abs_d'`;
chomp $projectname;
my $yyyy = Time::Format::time_format('yyyy', time());
qq{$projectname
===============================================
INSTALLATION
See INSTALL.
DEPENDENCIES
$deps
COPYRIGHT AND LICENCE
Copyright (C) $yyyy by Leo Charre leocharre at cpan dot org
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.8 or,
at your option, any later version of Perl 5 you may have available.
};
}