+ 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;
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,
-sections => $_->{sections});
-sections => $_->{sections}) if (defined($where));
}
$self->{output}->add_option_msg(long_msg => $stdout) if (defined($stdout));