Skip to content

Instantly share code, notes, and snippets.

@hatyuki
hatyuki / test.pl
Created September 13, 2010 02:56 — forked from issm/test.pl
#!/usr/bin/env perl
use strict;
use warnings;
# mysql -h localhost test
# create table hoge (id int(10) auto_increment, hoge char(16), fuga char(16), t int(10), primary key (id));
# insert into hoge (hoge, fuga, t) values ('aaa', 'xxx', UNIX_TIMESTAMP()), ('bbb', 'yyy', UNIX_TIMESTAMP()), ('ccc', 'zzz', UNIX_TIMESTAMP());
package My::DB;
use DBIx::Skinny setup => +{