Print embedded Pod as formatted text with termcap escapes
问题 I am trying to output embedded Pod as ANSI text to the terminal. In Perl 5 I can use Pod::Text::Termcap: use strict; use warnings; use Pod::Text::Termcap; my $str = do {local $/; <DATA>}; my $parser = Pod::Text::Termcap->new(); $parser->parse_string_document( $str, \*STDERR ); __DATA__ =head1 SYNOPSIS my_test_command I<filename> [OPTIONS] =head1 ARGUMENTS =over 4 =item I<filename> File name to test =back =head1 OPTIONS =over 4 =item B<--help> Prints help =back =head1 DESCRIPTION A sample test