File Coverage

blib/lib/Time/Format/MySQL.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	4	4	100.0
condition	4	6	66.6
subroutine	8	8	100.0
pod	2	2	100.0
total	42	44	95.4

package Time::Format::MySQL;
use 5.008005;
use strict;
use warnings;
use Carp qw(croak);
use Time::Piece ();
use parent qw(Exporter);
our @EXPORT_OK = qw(from_unixtime unix_timestamp);
our $VERSION = "0.03";

my $DEFAULT_FORMAT = '%Y-%m-%d %H:%M:%S';

sub from_unixtime {
    my $unixtime = shift or croak('Incorrect parameter count');
    my $format   = shift || $DEFAULT_FORMAT;
    Time::Piece::localtime($unixtime)->strftime($format);
}

sub unix_timestamp {
    my $datetime = shift or return time;
    my $format   = shift || $DEFAULT_FORMAT;
    Time::Piece::localtime->strptime($datetime, $format)->epoch;
}

1;
__END__