Perl 在运行时以编程方式修改 POD

Question

我已经为我正在处理的一些脚本编写了一个便利库。除了提供强制参数外，它还把Getopt::Long 包装成更简单的东西。因此，该库将许多参数添加到脚本的必需/可能的命令行参数列表中。

由于脚本还在 --help 标志上调用 pod2usage，我希望库有某种方式来提供它提供给单个脚本的每个标志的定义，因此可以在 pod2usage 为调用。

例如，我的库添加了--dosomething 标志，无论如何，当我运行a.pl --help 时，它将包括a.pl 提供的帮助定义，以及库提供的定义，像--dosomething 的那个a.pl 可能不知道？

有什么方法可以做到这一点——让库在运行时修改脚本的 POD？

Answer 1

不幸的是，pod2usage 对于这个目的来说太静态了。您可以查看 App::Cmd 或 Getopt::Long::Descriptive（由 App::Cmd 使用）以获得更接近此的一些功能。

也就是说你不需要使用 pod2usage 来打印使用语句，它只是一个有用的方式来转储脚本自己的 pod。