[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