From: Brian O'Connor <briandoconnor@gmail.com>
Date: Tue, 20 Apr 2004 01:59:07 +0000 (+0000)
Subject: Added dumper method.
X-Git-Tag: v0.06~75
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=28ae4732e260c3c269e700ab46d1b656d0b438bf;p=dbsrgits%2FSQL-Translator.git

Added dumper method.
---

diff --git a/lib/SQL/Translator/Producer/Turnkey.pm b/lib/SQL/Translator/Producer/Turnkey.pm
index e974d66..0fb788d 100644
--- a/lib/SQL/Translator/Producer/Turnkey.pm
+++ b/lib/SQL/Translator/Producer/Turnkey.pm
@@ -1,7 +1,7 @@
 package SQL::Translator::Producer::Turnkey;
 
 # -------------------------------------------------------------------
-# $Id: Turnkey.pm,v 1.44 2004-04-16 23:10:20 boconnor Exp $
+# $Id: Turnkey.pm,v 1.45 2004-04-20 01:59:07 boconnor Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2002-4 SQLFairy Authors
 #
@@ -22,7 +22,7 @@ package SQL::Translator::Producer::Turnkey;
 
 use strict;
 use vars qw[ $VERSION $DEBUG ];
-$VERSION = sprintf "%d.%02d", q$Revision: 1.44 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.45 $ =~ /(\d+)\.(\d+)/;
 $DEBUG   = 1 unless defined $DEBUG;
 
 use SQL::Translator::Schema::Constants;
@@ -362,12 +362,23 @@ package [% baseclass %];
 # Template used: classdbi
 
 use strict;
+use Data::Dumper
 no warnings 'redefine';
 use base qw(Class::DBI::Pg);
 
 [% baseclass %]->set_db('Main', '[% db_dsn  %]', '[% db_user %]', '[% db_pass %]');
 sub search_ilike { shift->_do_search(ILIKE => [% "\@\_" %] ) }
 
+# debug method
+sub dump {
+  my $self = shift;
+  my %arg  = @_;
+  $arg{indent} ||= 1;
+  $arg{depth} ||= 2;
+  $Data::Dumper::Maxdepth = $arg{depth} if defined $arg{depth};
+  $Data::Dumper::Indent = $arg{indent} if defined $arg{indent};
+  return(Dumper($obj));
+}
 
 [% FOREACH node = nodes %]
     [% printPackage(node.value) %]