+ Enhance to have mode display

This commit is contained in:
garnier-quentin 2016-02-19 15:27:58 +01:00
parent f931e836f1
commit 0cf9a0160b
1 changed files with 3 additions and 2 deletions

View File

@ -79,9 +79,10 @@ sub display_help {
{ {
local *STDOUT; local *STDOUT;
open STDOUT, '>', \$stdout; open STDOUT, '>', \$stdout;
pod2usage(-exitval => 'NOEXIT', -input => pod_where({-inc => 1}, $_->{package}), my $where = pod_where({-inc => 1}, $_->{package});
pod2usage(-exitval => 'NOEXIT', -input => $where,
-verbose => 99, -verbose => 99,
-sections => $_->{sections}); -sections => $_->{sections}) if (defined($where));
} }
$self->{output}->add_option_msg(long_msg => $stdout) if (defined($stdout)); $self->{output}->add_option_msg(long_msg => $stdout) if (defined($stdout));