NAME

MooseX::Getopt::Usage::Pod::Text - pod2text duties for MooseX::Getopt::Usage.

SYNOPSIS

 use MooseX::Getopt::Usage::Pod::Text;
 my $parser = MooseX::Getopt::Usage::Pod::Text->new();
 my $out;
 $parser->output_string(\$out);
 $parser->parse_string_document($pod);
 say $out;

DESCRIPTION

A subclass of Pod::Text to tweak the output to make a nice usage message. Does the following.

Lower cases headings (keeping first letter cap).

Adds a colon on the end of headings.

Changes SYNOPSIS head1 to USAGE.

Optionally strips out headings.

METHODS

new

Override constructor to add our own headings and opt_indent options.

heading

Lower casing and colon. Strip headings.

cmd_head1

Change SYNOPSIS to USAGE.

SEE ALSO

MooseX::Getopt::Usage, MooseX::Getopt::Usage::Formatter, perl.

BUGS

All complex software has bugs lurking in it, and this module is no exception. See "BUGS" in MooseX::Getopt::Usage for details of how to report bugs.

ACKNOWLEDGEMENTS

Thanks to Pod::Usage for the lower casing headings regexp. Based on Russ Allbery's Pod::Text:Color prototype code.

AUTHOR

Mark Pitchless, <markpitchless at gmail.com>

COPYRIGHT

Copyright 2012 Mark Pitchless

LICENSE

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.