package NGCP::Schema::Storage::DateTime::Format::MySQL;

use strict;
use warnings;

use vars qw ($VERSION);

$VERSION = '0.06';

use base ("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;