|
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 |
- |
|
|