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。