From: Aran Deltac <bluefeet@cpan.org>
Date: Sat, 29 Apr 2006 02:44:47 +0000 (+0000)
Subject: Newlines after each csv lines.  Add trace option.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5deea98c748e4a278c6215193e1ab846adf2c1b6;p=dbsrgits%2FDBIx-Class-Historic.git

Newlines after each csv lines.  Add trace option.
---

diff --git a/maint/dbicadmin b/maint/dbicadmin
index 99928c6..e3c4926 100755
--- a/maint/dbicadmin
+++ b/maint/dbicadmin
@@ -14,12 +14,13 @@ GetOptions(
     'set=s'     => \my $set,
     'format=s'  => \my $format,
     'force'     => \my $force,
+    'trace'     => \my $trace,
     'quiet'     => \my $quiet,
     'help'      => \my $help,
 );
 
 pod2usage(1) if ($help);
-$ENV{DBIX_CLASS_STORAGE_DBI_DEBUG} = 1 if (!$quiet);
+$ENV{DBIX_CLASS_STORAGE_DBI_DEBUG} = 1 if ($trace);
 
 die('No op specified') if(!$op);
 die('Invalid op') if ($op!~/^insert|update|delete|select$/s);
@@ -78,14 +79,14 @@ elsif ($op eq 'select') {
     $resultset = $resultset->search( $where );
     my @columns = $resultset->result_source->columns();
     $csv->combine( @columns );
-    print $csv->string();
+    print $csv->string()."\n";
     while (my $row = $resultset->next()) {
         my @fields;
         foreach my $column (@columns) {
             push( @fields, $row->get_column($column) );
         }
         $csv->combine( @fields );
-        print $csv->string();
+        print $csv->string()."\n";
     }
 }
 
@@ -100,7 +101,7 @@ __END__
 
 =head1 NAME
 
-dbicadmin - Execute simple actions upon DBIx::Class objects.
+dbicadmin - Execute operations upon DBIx::Class objects.
 
 =head1 SYNOPSIS
 
@@ -149,7 +150,12 @@ when someone runs a DELETE or UPDATE action.
 
 =head2 quiet
 
-Do not print status messages or SQL statements.
+Do not display status messages.
+
+=head2 trace
+
+Turns on tracing on the DBI storage, thus printing SQL as it is 
+executed.
 
 =head1 AUTHOR