Time::Piece::MySQL

[jeffa]

Item Description: Bridges the gap between Perl and MySQL date-time types

Review Synopsis:

Time::Piece::MySQL is a very useful module for MySQL users. It is simply an extension to Time::Piece that provides a handful of methods for converting back and forth between Time::Piece objects and the MySQL date/time types: date, time, datetime, and timestamp. (The year type is available from Time::Piece, so it doesn't need to be here.)

As an example, say i had a table of events that contained an id and a datetime field:

+---------+------------------+
| Field   | Type             |
+---------+------------------+
| id      | int(10) unsigned |
| date    | datetime         |
+---------+------------------+

and i wanted to add 50 days to to each date. The following snippet would do just that:

use strict;
use warnings;
use DBI;
use Time::Seconds;
use Time::Piece::MySQL;

my $dbh   = DBI->connect( ... );
my $sth   = $dbh->prepare('update events set date = ? where id = ?');
my $dates = $dbh->selectall_arrayref(
   'select id,date from events', {Slice => {}}
);

for (@$dates) {

   my $date = localtime->from_mysql_datetime( $_->{date} );
   $date += ONE_DAY * 50;
   $sth->execute( $date->mysql_datetime, $_->{id} );
}

A very trivial example, but i think it demonstrates how it can make someone's Perl/MySQL script easier to work with.

[CountZero]

I'm quite sure that this module will have a lot of good uses, but the example you give is --IMHO-- not one of such, as this problem can be solved from within MySQL itself:

UPDATE events SET date = DATE_ADD(date, INTERVAL 50 DAY) WHERE id = ? will add 50 days to the date in the date-field.