From: Guillermo Roditi 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();