File Coverage

blib/lib/Time/Piece/MSSQL.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	4	4	100.0
condition	3	3	100.0
subroutine	10	10	100.0
pod	4	4	100.0
total	50	50	100.0

use strict;
use warnings;
package Time::Piece::MSSQL;
{
  $Time::Piece::MSSQL::VERSION = '0.022';
}
use Time::Piece 1.17;
# ABSTRACT: MSSQL-specific methods for Time::Piece

# stolen from timepiece-mysql
sub import {
  splice @_, 0, 1, 'Time::Piece';
  goto &Time::Piece::import
}


sub mssql_datetime {
	my $self = shift;
	$self->strftime('%Y-%m-%d %H:%M:%S.000');
}

sub mssql_smalldatetime {
	my $self = shift;
	$self->strftime('%Y-%m-%d %H:%M:%S');
}


sub from_mssql_datetime {
	my ($class, $timestring) = @_;
	return unless $timestring and ($timestring =~ s/\.\d{3}$//);
	my $time = eval { $class->strptime($timestring, '%Y-%m-%d %H:%M:%S') };
}

sub from_mssql_smalldatetime {
	my ($class, $timestring) = @_;
	return unless $timestring;
	my $time = eval { $class->strptime($timestring, '%Y-%m-%d %H:%M:%S') };
}

BEGIN {
  for (qw(
    mssql_datetime mssql_smalldatetime
    from_mssql_datetime from_mssql_smalldatetime
  )) {
    no strict 'refs'; ## no critic ProhibitNoStrict
    *{"Time::Piece::$_"} = __PACKAGE__->can($_);
  }
}


1;

__END__