enhance typo

This commit is contained in:
garnier-quentin 2020-01-24 15:24:59 +01:00
parent 4488de5a65
commit f023213020
1 changed files with 14 additions and 14 deletions

View File

@ -37,7 +37,7 @@ sub new {
$self->{options} = {}; $self->{options} = {};
@{$self->{pod_package}} = (); @{$self->{pod_package}} = ();
$self->{pod_packages_once} = {}; $self->{pod_packages_once} = {};
if ($alternative == 0) { if ($alternative == 0) {
require Getopt::Long; require Getopt::Long;
Getopt::Long->import(); Getopt::Long->import();
@ -49,13 +49,13 @@ sub new {
$centreon::plugins::alternative::Getopt::warn_message = 0; $centreon::plugins::alternative::Getopt::warn_message = 0;
centreon::plugins::alternative::Getopt->import(); centreon::plugins::alternative::Getopt->import();
} }
return $self; return $self;
} }
sub set_sanity { sub set_sanity {
my ($self, %options) = @_; my ($self, %options) = @_;
if ($alternative == 0) { if ($alternative == 0) {
Getopt::Long::Configure('no_pass_through'); Getopt::Long::Configure('no_pass_through');
} else { } else {
@ -67,13 +67,13 @@ sub set_sanity {
sub set_output { sub set_output {
my ($self, %options) = @_; my ($self, %options) = @_;
$self->{output} = $options{output}; $self->{output} = $options{output};
} }
sub display_help { sub display_help {
my ($self, %options) = @_; my ($self, %options) = @_;
my $stdout; my $stdout;
foreach (@{$self->{pod_package}}) { foreach (@{$self->{pod_package}}) {
@ -85,7 +85,7 @@ sub display_help {
-verbose => 99, -verbose => 99,
-sections => $_->{sections}) if (defined($where)); -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));
} }
} }
@ -96,30 +96,30 @@ sub add_help {
# $options{sections} = string sections # $options{sections} = string sections
# $options{help_first} = put at the beginning # $options{help_first} = put at the beginning
# $options{once} = put help only one time for a package # $options{once} = put help only one time for a package
if (defined($options{once}) && defined($self->{pod_packages_once}->{$options{package}})) { if (defined($options{once}) && defined($self->{pod_packages_once}->{$options{package}})) {
return ; return ;
} }
if (defined($options{help_first})) { if (defined($options{help_first})) {
unshift @{$self->{pod_package}}, {package => $options{package}, sections => $options{sections}}; unshift @{$self->{pod_package}}, {package => $options{package}, sections => $options{sections}};
} else { } else {
push @{$self->{pod_package}}, { package => $options{package}, sections => $options{sections} }; push @{$self->{pod_package}}, { package => $options{package}, sections => $options{sections} };
} }
$self->{pod_packages_once}->{$options{package}} = 1; $self->{pod_packages_once}->{$options{package}} = 1;
} }
sub add_options { sub add_options {
my ($self, %options) = @_; my ($self, %options) = @_;
# $options{arguments} = ref to hash table with string and name to store (example: { 'mode:s' => { name => 'mode', default => 'defaultvalue' ) # $options{arguments} = ref to hash table with string and name to store (example: { 'mode:s' => { name => 'mode', default => 'defaultvalue' )
foreach (keys %{$options{arguments}}) { foreach (keys %{$options{arguments}}) {
if (defined($options{arguments}->{$_}->{redirect})) { if (defined($options{arguments}->{$_}->{redirect})) {
$self->{options}->{$_} = \$self->{options_stored}->{$options{arguments}->{$_}->{redirect}}; $self->{options}->{$_} = \$self->{options_stored}->{$options{arguments}->{$_}->{redirect}};
next; next;
} }
if (defined($options{arguments}->{$_}->{default})) { if (defined($options{arguments}->{$_}->{default})) {
$self->{options_stored}->{$options{arguments}->{$_}->{name}} = $options{arguments}->{$_}->{default}; $self->{options_stored}->{$options{arguments}->{$_}->{name}} = $options{arguments}->{$_}->{default};
} else { } else {
@ -142,12 +142,12 @@ sub parse_options {
$self->{output}->option_exit(nolabel => 1); $self->{output}->option_exit(nolabel => 1);
}; };
} }
GetOptions( GetOptions(
%{$self->{options}} %{$self->{options}}
); );
%{$self->{options}} = (); %{$self->{options}} = ();
$SIG{__WARN__} = $save_warn_handler if ($self->{sanity} == 1); $SIG{__WARN__} = $save_warn_handler if ($self->{sanity} == 1);
} }
@ -165,7 +165,7 @@ sub get_options {
sub clean { sub clean {
my $self = shift; my $self = shift;
$self->{options_stored} = {}; $self->{options_stored} = {};
} }