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