From fdb3bfeaf46515631af432ce5182a4bbc1eb860a Mon Sep 17 00:00:00 2001
From: mattn <mattn.jp@gmail.com>
Date: Tue, 15 Nov 2011 11:48:27 +0900
Subject: add DBI connect for mysql/oracle.

---
 template/perl/snip-dbi-connect-mysql.pl  | 2 ++
 template/perl/snip-dbi-connect-oracle.pl | 2 ++
 2 files changed, 4 insertions(+)
 create mode 100644 template/perl/snip-dbi-connect-mysql.pl
 create mode 100644 template/perl/snip-dbi-connect-oracle.pl

(limited to 'template/perl')

diff --git a/template/perl/snip-dbi-connect-mysql.pl b/template/perl/snip-dbi-connect-mysql.pl
new file mode 100644
index 0000000..426feee
--- /dev/null
+++ b/template/perl/snip-dbi-connect-mysql.pl
@@ -0,0 +1,2 @@
+my $dbh = DBI->connect("dbi:mysql:{{_cursor_}}", "", "");
+$dbh->disconnect;
diff --git a/template/perl/snip-dbi-connect-oracle.pl b/template/perl/snip-dbi-connect-oracle.pl
new file mode 100644
index 0000000..d0e2765
--- /dev/null
+++ b/template/perl/snip-dbi-connect-oracle.pl
@@ -0,0 +1,2 @@
+my $dbh = DBI->connect("dbi:Oracle:{{_cursor_}}", "", "");
+$dbh->disconnect;
-- 
cgit v1.2.3-54-g00ecf