File Coverage

blib/lib/Time/Moment/Ext.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	10	10	100.0
pod	1	6	16.6
total	36	45	80.0

package Time::Moment::Ext;

use strict;
use warnings;
use Time::Piece ();

use parent 'Time::Moment';

our $VERSION = '0.05';

my $SQL_FORMAT = '%Y-%m-%d %H:%M:%S';
my $SQL_DATE = '%Y-%m-%d';
my $SQL_TIME = '%H:%M:%S';

sub Time::Moment::strptime {
    my ($class, $str, $format) = @_;
    return unless ($str && $format);

    return $class->from_object(scalar Time::Piece::localtime->strptime($str, $format));
}

sub Time::Moment::from_datetime {
    my ($class, $str) = @_;
	return unless $str;

    return $class->strptime($str, $SQL_FORMAT);
}

sub Time::Moment::to_datetime {
    return shift->strftime($SQL_FORMAT);
}

sub Time::Moment::to_date {
	return shift->strftime($SQL_DATE);
}

sub Time::Moment::to_time {
	return shift->strftime($SQL_TIME);
}

sub Time::Moment::day {
	return shift->day_of_month;
}

1;
__END__