From 5e0e1aa926ca1e3615cdd0ccacbb50e28fd3d396 Mon Sep 17 00:00:00 2001
From: Robert Buels <rmb32@cornell.edu>
Date: Sat, 14 May 2011 11:24:11 -0700
Subject: [PATCH] add more default behavior to Dbpatch.pm in the continual
 fight against boilerplate.

---
 lib/CXGN/Metadata/Dbpatch.pm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/lib/CXGN/Metadata/Dbpatch.pm b/lib/CXGN/Metadata/Dbpatch.pm
index 06b8e11..9eb27bc 100644
--- a/lib/CXGN/Metadata/Dbpatch.pm
+++ b/lib/CXGN/Metadata/Dbpatch.pm
@@ -251,14 +251,18 @@ sub run {
     }
 }
 
-
-
 sub init_patch {
+    my $self = shift;
+    print  "Patch name:\n  " .   $self->name . ".\n\nDescription:\n  ".  $self->description . "\nExecuted by:\n  " .  $self->username . "\n\n";
+
 }
 
+has 'sql' => ( is => 'ro', isa => 'Str' );
 sub patch {
-    my $self=shift;
-    warn "You have to override patch in your sub-class!";
+    my $self = shift;
+    local $self->dbh->{AutoCommit} = 0;
+    $self->dbh->do( $self->sql );
+    print "Done.\n";
 }
 
 ###
-- 
2.11.4.GIT