# This processes string-like arguments.
#
else {
- return [
+ return [
map { s/^\s+|\s+$//g; $_ }
map { split /,/ }
grep { defined && length } @$list
my @vers;
- # X.Y.Z style
+ # X.Y.Z style
if ( $v =~ / ^ (\d+) \. (\d{1,3}) (?: \. (\d{1,3}) )? $ /x ) {
push @vers, $1, $2, $3;
}
- # XYYZZ (mysql) style
+ # XYYZZ (mysql) style
elsif ( $v =~ / ^ (\d) (\d{2}) (\d{2}) $ /x ) {
push @vers, $1, $2, $3;
}
- # XX.YYYZZZ (perl) style or simply X
+ # XX.YYYZZZ (perl) style or simply X
elsif ( $v =~ / ^ (\d+) (?: \. (\d{3}) (\d{3}) )? $ /x ) {
push @vers, $1, $2, $3;
}
my @vers;
- # X.Y.Z style
+ # X.Y.Z style
if ( $v =~ / ^ (\d+) \. (\d{1,3}) (?: \. (\d{1,3}) )? $ /x ) {
push @vers, $1, $2, $3;
}
- # XX.YYYZZZ (perl) style or simply X
+ # XX.YYYZZZ (perl) style or simply X
elsif ( $v =~ / ^ (\d+) (?: \. (\d{3}) (\d{3}) )? $ /x ) {
push @vers, $1, $2, $3;
}
return sprintf ('%d.%03d%03d', map { $_ || 0 } (@vers) );
}
elsif ($target eq 'native') {
- return join '.' => map 0+$_, grep defined, @vers;
+ return join '.' => grep defined, @vers;
}
else {
#how do I croak sanely here?
=head2 parse_mysql_version
-Used by both L<Parser::MySQL|SQL::Translator::Parser::MySQL> and
+Used by both L<Parser::MySQL|SQL::Translator::Parser::MySQL> and
L<Producer::MySQL|SQL::Translator::Producer::MySQL> in order to provide a
consistent format for both C<< parser_args->{mysql_parser_version} >> and
C<< producer_args->{mysql_version} >> respectively. Takes any of the following