+ Enhance to have mode display
This commit is contained in:
parent
f931e836f1
commit
0cf9a0160b
|
@ -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));
|
||||
|
|
Loading…
Reference in New Issue