[Bast-commits] r4771 - in DBIx-Class/0.08/branches/view_support: lib/SQL/Translator/Parser/DBIx t

groditi at dev.catalyst.perl.org groditi at dev.catalyst.perl.org
Mon Aug 25 22:38:27 BST 2008


Author: groditi
Date: 2008-08-25 22:38:27 +0100 (Mon, 25 Aug 2008)
New Revision: 4771

Modified:
   DBIx-Class/0.08/branches/view_support/lib/SQL/Translator/Parser/DBIx/Class.pm
   DBIx-Class/0.08/branches/view_support/t/99dbic_sqlt_parser.t
Log:
parser improvements and test correction

Modified: DBIx-Class/0.08/branches/view_support/lib/SQL/Translator/Parser/DBIx/Class.pm
===================================================================
--- DBIx-Class/0.08/branches/view_support/lib/SQL/Translator/Parser/DBIx/Class.pm	2008-08-25 21:17:12 UTC (rev 4770)
+++ DBIx-Class/0.08/branches/view_support/lib/SQL/Translator/Parser/DBIx/Class.pm	2008-08-25 21:38:27 UTC (rev 4771)
@@ -69,11 +69,9 @@
     for my $moniker (@monikers){
       my $source = $dbicschema->source($moniker);
       next if $source->is_virtual;
-       if ( $source->isa('DBIx::Class::ResultSource::Table') ||
-              $source->isa('DBIx::Class::ResultSourceProxy::Table') ) {
+       if ( $source->isa('DBIx::Class::ResultSource::Table') ) {
          push(@table_monikers, $moniker);
-      } elsif( $source->isa('DBIx::Class::ResultSource::View') ||
-            $source->isa('DBIx::Class::ResultSourceProxy::View') ){
+      } elsif( $source->isa('DBIx::Class::ResultSource::View') ){
          push(@view_monikers, $moniker);
       }
     }

Modified: DBIx-Class/0.08/branches/view_support/t/99dbic_sqlt_parser.t
===================================================================
--- DBIx-Class/0.08/branches/view_support/t/99dbic_sqlt_parser.t	2008-08-25 21:17:12 UTC (rev 4770)
+++ DBIx-Class/0.08/branches/view_support/t/99dbic_sqlt_parser.t	2008-08-25 21:38:27 UTC (rev 4771)
@@ -9,7 +9,7 @@
     eval "use DBD::mysql; use SQL::Translator 0.09;";
     plan $@
         ? ( skip_all => 'needs SQL::Translator 0.09 for testing' )
-        : ( tests => 99 );
+        : ( tests => 102 );
 }
 
 my $schema = DBICTest->init_schema();




More information about the Bast-commits mailing list