From: Guillermo Roditi <groditi@cpan.org>
Date: Mon, 25 Aug 2008 21:38:27 +0000 (+0000)
Subject: parser improvements and test correction
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5f5e87cf7c30224adfc28a6e9ffc7a6838eae421;p=dbsrgits%2FDBIx-Class-Historic.git

parser improvements and test correction
---

diff --git a/lib/SQL/Translator/Parser/DBIx/Class.pm b/lib/SQL/Translator/Parser/DBIx/Class.pm
index ae14d0b..5b313ba 100644
--- a/lib/SQL/Translator/Parser/DBIx/Class.pm
+++ b/lib/SQL/Translator/Parser/DBIx/Class.pm
@@ -69,11 +69,9 @@ sub parse {
     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);
       }
     }
diff --git a/t/99dbic_sqlt_parser.t b/t/99dbic_sqlt_parser.t
index 34547db..42eeb92 100644
--- a/t/99dbic_sqlt_parser.t
+++ b/t/99dbic_sqlt_parser.t
@@ -9,7 +9,7 @@ BEGIN {
     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();