28 lines
513 B
28 lines
513 B
package NGCP::Schema::Storage::DateTime::Format::MySQL;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
our $VERSION = '0.06';
|
|
|
|
use parent 'DateTime::Format::MySQL';
|
|
|
|
sub format_time
|
|
{
|
|
my ( $self, $dt ) = @_;
|
|
my ($h,$m,$s) = ($dt->hour(), $dt->minute(), $dt->second());
|
|
if ($s >= 60) { #Returns the second, from 0..61. The values 60 and 61 are used for leap seconds.
|
|
$s = 59;
|
|
}
|
|
my $sep = ':';
|
|
return sprintf(
|
|
'%0.2d%s%0.2d%s%0.2d',
|
|
$h, $sep,
|
|
$m, $sep,
|
|
$s
|
|
);
|
|
}
|
|
|
|
|
|
1;
|