perl - Pod::Usage: `=begin :text`/`=end :text` 弄乱了格式

Question

我有一些 POD 文档，其中一个部分应该在 Latex(使用 pod2latex)和纯文本/man 中以不同方式呈现。为此，我有一个 =begin :text/=end :text 部分。

现在，我想在命令行上显示 POD 的各个部分(使用 Pod::Usage)。这就是问题所在::text block 之后的所有部分在这种模式下都出现乱码。

这是一个最小的例子:

pod2usage(-verbose => 99, -sections => 'Two');

=head1 One

=begin text

For I<non-Latex> only.

=end text

=head1 Two

C<Formatting> all I<messed> up!

输出:

Two:
"Formatting"*messed*     all up!

请注意，打印整个 POD(pod2usage(-verbose => 2); 或仅在文件上运行 perldoc)工作正常。

我已经尝试了我能找到的所有 Pod::Usage 选项(包括选择不同的 Formatter 类)，但现在无济于事。如果我从 block 中删除 :text(普通 =begin/=end)，它会随着部分选择而正常出现，但是这实际上是一个 POD 语法错误，perldoc 在渲染整个 POD 时提示它。

注意:我的 Perl 很旧(v5.18.2)，但我仍然坚持使用那个版本。

Answer 1

这看起来像是 Pod::Usage 中的错误。我通过查看源代码找到了解决方法。似乎 Pod::Simple 的内部堆栈由于缺少子 cmd_for 而变得困惑。通过手动添加虚拟子 cmd_for 它似乎可以工作:

use feature qw(say);
use strict;
use warnings;

use Pod::Usage;
{
    no warnings 'once';
    *Pod::Usage::cmd_for = sub { };
}

pod2usage(-verbose => 99, -sections => 'Two');

=head1 One

=begin text

For I<non-Latex> only.

=end text

=head1 Two

C<Formatting> all I<messed> up!

输出:

Two:
    "Formatting" all messed up!