Lines 360-367
sub TO_JSON {
Link Here
|
360 |
) { |
360 |
) { |
361 |
|
361 |
|
362 |
# TODO: Remove once the solution for |
362 |
# TODO: Remove once the solution for |
363 |
# https://rt.cpan.org/Ticket/Display.html?id=119904 |
363 |
# https://github.com/perl5-dbi/DBD-mysql/issues/212 |
364 |
# is ported to whatever distro we support by that time |
364 |
# is ported to whatever distro we support by that time |
|
|
365 |
# or we move to DBD::MariaDB |
365 |
$unblessed->{$col} += 0; |
366 |
$unblessed->{$col} += 0; |
366 |
} |
367 |
} |
367 |
elsif ( _decimal_column_type( $columns_info->{$col}->{data_type} ) |
368 |
elsif ( _decimal_column_type( $columns_info->{$col}->{data_type} ) |
Lines 369-376
sub TO_JSON {
Link Here
|
369 |
) { |
370 |
) { |
370 |
|
371 |
|
371 |
# TODO: Remove once the solution for |
372 |
# TODO: Remove once the solution for |
372 |
# https://rt.cpan.org/Ticket/Display.html?id=119904 |
373 |
# https://github.com/perl5-dbi/DBD-mysql/issues/212 |
373 |
# is ported to whatever distro we support by that time |
374 |
# is ported to whatever distro we support by that time |
|
|
375 |
# or we move to DBD::MariaDB |
374 |
$unblessed->{$col} += 0.00; |
376 |
$unblessed->{$col} += 0.00; |
375 |
} |
377 |
} |
376 |
elsif ( _datetime_column_type( $columns_info->{$col}->{data_type} ) ) { |
378 |
elsif ( _datetime_column_type( $columns_info->{$col}->{data_type} ) ) { |
Lines 410-417
sub _datetime_column_type {
Link Here
|
410 |
|
412 |
|
411 |
sub _numeric_column_type { |
413 |
sub _numeric_column_type { |
412 |
# TODO: Remove once the solution for |
414 |
# TODO: Remove once the solution for |
413 |
# https://rt.cpan.org/Ticket/Display.html?id=119904 |
415 |
# https://github.com/perl5-dbi/DBD-mysql/issues/212 |
414 |
# is ported to whatever distro we support by that time |
416 |
# is ported to whatever distro we support by that time |
|
|
417 |
# or we move to DBD::MariaDB |
415 |
my ($column_type) = @_; |
418 |
my ($column_type) = @_; |
416 |
|
419 |
|
417 |
my @numeric_types = ( |
420 |
my @numeric_types = ( |
Lines 428-435
sub _numeric_column_type {
Link Here
|
428 |
|
431 |
|
429 |
sub _decimal_column_type { |
432 |
sub _decimal_column_type { |
430 |
# TODO: Remove once the solution for |
433 |
# TODO: Remove once the solution for |
431 |
# https://rt.cpan.org/Ticket/Display.html?id=119904 |
434 |
# https://github.com/perl5-dbi/DBD-mysql/issues/212 |
432 |
# is ported to whatever distro we support by that time |
435 |
# is ported to whatever distro we support by that time |
|
|
436 |
# or we move to DBD::MariaDB |
433 |
my ($column_type) = @_; |
437 |
my ($column_type) = @_; |
434 |
|
438 |
|
435 |
my @decimal_types = ( |
439 |
my @decimal_types = ( |
436 |
- |
|
|