PT-115 Updated OptionParser in all scripts

This commit is contained in:
Carlos Salguero
2017-03-30 10:23:46 -03:00
parent 1d4507537b
commit dd6f9046ef
25 changed files with 225 additions and 25 deletions

View File

@@ -677,7 +677,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -1406,7 +1406,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -1404,7 +1404,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -754,7 +754,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -750,7 +750,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -1741,7 +1741,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -678,7 +678,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -1170,7 +1170,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -679,7 +679,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -749,7 +749,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -1515,7 +1515,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -1331,7 +1331,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -759,7 +759,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -767,7 +767,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -1999,7 +1999,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -680,7 +680,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -752,7 +752,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -687,7 +687,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -904,7 +904,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -2428,7 +2428,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -767,7 +767,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -1772,7 +1772,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -1996,7 +1996,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -756,7 +756,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');

View File

@@ -1353,7 +1353,15 @@ sub _validate_type {
}
}
my $defaults = $self->{DSNParser}->parse_options($self);
if (!$opt->{attributes}->{repeatable}) {
$opt->{value} = $self->{DSNParser}->parse($val, $prev, $defaults);
} else {
my $values = [];
for my $dsn_string (@$val) {
push @$values, $self->{DSNParser}->parse($dsn_string, $prev, $defaults);
}
$opt->{value} = $values;
}
}
elsif ( $val && $opt->{type} eq 'z' ) { # type size
PTDEBUG && _d('Parsing option', $opt->{long}, 'as a size value');