[Bast-commits] r5438 - in DBIx-Class/0.08: branches/stopgap/lib/DBIx/Class/CDBICompat branches/stopgap/lib/SQL/Translator/Parser/DBIx trunk/lib/SQL/Translator/Parser/DBIx

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-02-10 10:18:09 +0000 (Tue, 10 Feb 2009)
New Revision: 5438

Modified:
   DBIx-Class/0.08/branches/stopgap/lib/DBIx/Class/CDBICompat/ColumnGroups.pm
   DBIx-Class/0.08/branches/stopgap/lib/SQL/Translator/Parser/DBIx/Class.pm
   DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm
Log:
Finally make the indexer happy wrt SQL::Translator::Parser::DBIx::Class
Hide DBIx::Class::CDBICompat::ColumnGroups::GrouperShim (was never indexed to begin with)


Modified: DBIx-Class/0.08/branches/stopgap/lib/DBIx/Class/CDBICompat/ColumnGroups.pm
===================================================================
--- DBIx-Class/0.08/branches/stopgap/lib/DBIx/Class/CDBICompat/ColumnGroups.pm	2009-02-10 05:30:07 UTC (rev 5437)
+++ DBIx-Class/0.08/branches/stopgap/lib/DBIx/Class/CDBICompat/ColumnGroups.pm	2009-02-10 10:18:09 UTC (rev 5438)
@@ -73,7 +73,8 @@
   return map { $class->find_column($_) } @col;
 }
 
-package DBIx::Class::CDBICompat::ColumnGroups::GrouperShim;
+package # hide from PAUSE
+    DBIx::Class::CDBICompat::ColumnGroups::GrouperShim;
 
 sub groups_for {
   my ($self, @cols) = @_;

Modified: DBIx-Class/0.08/branches/stopgap/lib/SQL/Translator/Parser/DBIx/Class.pm
===================================================================
--- DBIx-Class/0.08/branches/stopgap/lib/SQL/Translator/Parser/DBIx/Class.pm	2009-02-10 05:30:07 UTC (rev 5437)
+++ DBIx-Class/0.08/branches/stopgap/lib/SQL/Translator/Parser/DBIx/Class.pm	2009-02-10 10:18:09 UTC (rev 5438)
@@ -11,7 +11,7 @@
 use warnings;
 use vars qw($DEBUG $VERSION @EXPORT_OK);
 $DEBUG = 0 unless defined $DEBUG;
-$VERSION = sprintf "%d.%02d", q$Revision 1.0$ =~ /(\d+)\.(\d+)/;
+$VERSION = '1.10';
 
 use Exporter;
 use Data::Dumper;
@@ -183,3 +183,37 @@
 
 1;
 
+=head1 NAME
+
+SQL::Translator::Parser::DBIx::Class - Create a SQL::Translator schema
+from a DBIx::Class::Schema instance
+
+=head1 SYNOPSIS
+
+ use MyApp::Schema;
+ use SQL::Translator;
+
+ my $schema = MyApp::Schema->connect;
+ my $trans  = SQL::Translator->new (
+      parser      => 'SQL::Translator::Parser::DBIx::Class',
+      parser_args => { package => $schema },
+      producer    => 'SQLite',
+     ) or die SQL::Translator->error;
+ my $out = $trans->translate() or die $trans->error;
+
+=head1 DESCRIPTION
+
+C<SQL::Translator::Parser::DBIx::Class> reads a DBIx::Class schema,
+interrogates the columns, and stuffs it all in an $sqlt_schema object.
+
+=head1 SEE ALSO
+
+SQL::Translator.
+
+=head1 AUTHORS
+
+Jess Robinson
+
+Matt S Trout
+
+Ash Berlin

Modified: DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm	2009-02-10 05:30:07 UTC (rev 5437)
+++ DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm	2009-02-10 10:18:09 UTC (rev 5438)
@@ -8,7 +8,8 @@
 
 use strict;
 use warnings;
-use vars qw($DEBUG @EXPORT_OK);
+use vars qw($DEBUG $VERSION @EXPORT_OK);
+$VERSION = '1.10';
 $DEBUG = 0 unless defined $DEBUG;
 
 use Exporter;