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 0.023;
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
}

#pod =head1 SYNOPSIS
#pod
#pod  use Time::Piece::MSSQL;
#pod
#pod  my $time = localtime;
#pod
#pod  print $time->mssql_datetime;
#pod  print $time->mssql_smalldatetime;
#pod
#pod  my $time = Time::Piece->from_mssql_datetime( $mssql_datetime );
#pod  my $time = Time::Piece->from_mssql_smalldatetime( $mssql_smalldatetime );
#pod
#pod =head1 DESCRIPTION
#pod
#pod This module adds functionality to L, providing methods useful for
#pod using the object in conjunction with a Microsoft SQL database connection.  It
#pod will produce and parse MSSQL's default-format datetime values.
#pod
#pod =method mssql_datetime
#pod
#pod =method mssql_smalldatetime
#pod
#pod These methods return the Time::Piece object, formatted in the default notation
#pod for the correct MSSQL datatype.
#pod
#pod =cut

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');
}

#pod =method from_mssql_datetime
#pod
#pod   my $time = Time::Piece->from_mssql_datetime($timestring);
#pod
#pod =method from_mssql_smalldatetime
#pod
#pod   my $time = Time::Piece->from_mssql_smalldatetime($timestring);
#pod
#pod These methods construct new Time::Piece objects from the given strings, which
#pod must be in the default MSSQL format for the correct datatype.  If the string is
#pod empty, undefined, or unparseable, C is returned.
#pod
#pod =cut

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($_);
  }
}

#pod =head1 FINAL THOUGHTS
#pod
#pod This module saves less time than L, because there are fewer
#pod strange quirks to account for, but it becomes useful when tied to autoinflation
#pod of datatypes in Class::DBI::MSSQL.
#pod
#pod =cut

1;

__END__