/usr/bin/pod2readme is in libpod-readme-perl 0.11-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 | #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
use strict;
use File::Copy qw( copy );
use Pod::Readme;
our $VERSION = '0.05';
# TODO
# - use Getopts::Long with better options
# - allow for stream conversion
# - if no input given, parse META.yml and guess
my $input = shift||"";
unless (-r $input) {
print STDERR << "USAGE";
Cannot find input file "$input"
Usage: pod2readme inputfile [outputfile] [type]
USAGE
exit(1);
}
my $output = shift || "README";
my $type = shift || lc($output);
my $parser = Pod::Readme->new( readme_type => $type );
if (-e $output) {
copy( $output, $output . ".bak" );
}
$parser->parse_from_file( $input, $output );
__END__
=pod
=head1 NAME
pod2readme - script to convert POD to README file
=head1 SYNOPSIS
pod2readme lib/Some/Module.pm
=head1 DESCRIPTIONS
Converts POD in the specified file to a F<README> text file. If a
second argument is given, it will use that as the output file and
assume that is the type of file to export:
pod2readme Module.pm COPYING
If need be, this can be overridden in cases where the output file
is not the same as the type, using a third argument:
pod2readme Module.pm Module-Install.HOWTO install
=head1 SEE ALSO
L<Pod::Readme>
=head1 AUTHOR
Robert Rothenberg <rrwo at cpan.org>
=head1 LICENSE
Copyright (c) 2005 Robert Rothenberg. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=cut
|