Я пытаюсь вывести текст Pod на терминал с помощью pod2usage()
. Он отлично работает в большинстве случаев, за исключением текста, отформатированного как курсив, с использованием синтаксиса форматирования Pod I<text>
. В этом случае я ожидаю, что текст будет напечатан подчеркнутым (так оно работает при непосредственном использовании Pod::Text::Termcap). Например (prog.pl
):Невозможно напечатать курсивный текст из pod2usage()
use strict;
use warnings;
use Getopt::Long qw(GetOptions);
BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Termcap'; }
use Pod::Usage qw(pod2usage);
case1_use_termcap_directly();
case2_use_termcap_indirectly();
sub case2_use_termcap_indirectly {
GetOptions(help => \my $help, test => \my $test);
if ($help) {
pod2usage(
-message => "",
-verbose => 2,
-output => \*STDERR
);
}
}
sub case1_use_termcap_directly {
my $parser = Pod::Text::Termcap->new();
$parser->output_string(\my $out_str);
my $pod_str = do { local $/; <DATA> };
$parser->parse_string_document($pod_str);
print $out_str;
}
__DATA__
=head1 SYNOPSIS
prog [OPTIONS]
=head1 OPTIONS
=over 4
=item --help
Print this summary.
=item B<--test>=I<value>
Testing C<Pod::Text::Termcap>
=back
=head1 DESCRIPTION
A test program
Выход работает prog.pl --help
является:
Обратите внимание, что текст "value"
указывается при использовании Pod::Text::Termcap
непосредственно, но не указывается при печати косвенно pod2usage()
.
Примечание: Я использую Ubuntu 15.10. Это отлично работает для Ubuntu 14.10, поэтому я ожидаю, что проблема возникла при обновлении модулей Perl.
Да, согласитесь, я также подумал, что это было причиной того, что «Pod :: Text :: Termcap» подчеркивал текст вместо этого? Btw. Я использую gnome-terminal, и он может сделать курсив. Но я думаю, что меня не интересует эта функция (я просто хочу подчеркнуть текст) –