[Bast-commits] r7491 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage

[rbuels at dev.catalyst.perl.org]

Author: rbuels
Date: 2009-09-02 18:33:47 +0000 (Wed, 02 Sep 2009)
New Revision: 7491

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
Log:
POD patch, corrected erroneous usage of dbh_do in Storage::DBI synopsis

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2009-09-02 18:30:52 UTC (rev 7490)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2009-09-02 18:33:47 UTC (rev 7491)
@@ -44,8 +44,15 @@
   my $schema = MySchema->connect('dbi:SQLite:my.db');
 
   $schema->storage->debug(1);
-  $schema->dbh_do("DROP TABLE authors");
 
+  my @stuff = $schema->storage->dbh_do(
+    sub {
+      my ($storage, $dbh, @args) = @_;
+      $dbh->do("DROP TABLE authors");
+    },
+    @column_list
+  );
+
   $schema->resultset('Book')->search({
      written_on => $schema->storage->datetime_parser(DateTime->now)
   });