Как добавить несколько POD в конец моего Perl-скрипта?

Question

Я работал с учебником, найденным в документации perl о том, как использовать Getopt::Long в скрипте. Там он показывает, как добавить документацию, используя Pod::Usage, а затем ввести все из подпрограммы или что-то еще. Во всяком случае в этом примере они есть;

GetOptions('help|?' => \$help, 'b|backup' => \&backup, d|discover => \&discover, man => \$man) or pod2usage(2); 
pod2usage(1) if $help; 
pod2usage(-exitstatus => 0, -verbose => 2) if $man; 

Я добавил некоторые из своих аргументов.

Получаем, как обратиться к первому разделу документации. Но как я могу ссылаться на второй раздел, как указано pod2usage(2)?

Когда я добавляю новый раздел после =cut в конце раздела 1, когда я пытаюсь его отобразить, меня встречает командная строка, как будто она входит, а затем выходит без отображения раздела. Я делаю что-то неправильно?

Answer 1

Вам не нужно «несколько POD».

pod2usage, когда называют, например, pod2usage(1), здесь 1 представляет состояние выхода, и уровень детальности подразумевается как 1, так что он будет печатать SYNOPSIS, и любые разделы под названием OPTIONS, ARGUMENTS или OPTIONS AND ARGUMENTS

Когда вызывается как pod2usage(-exitval => 0, -verbose => 2), он напечатает весь POD, в вашем текстовом пейджере (то же, что и perldoc yourscriptname.pl) и выйдет с 0. (Примечание: -exitval, а не -exitstatus).

Это хорошо описано в документации Pod::Usagehere и работает так, как описано.

Вы можете найти необязательный параметр -sections для pod2usage, который полезен для описанного вами в сочетании с -verbose => 1, чтобы выбрать, что вы хотите отобразить.