[Bast-commits] r9506 - in DBIx-Class/0.08/trunk: lib/DBIx/Class t

frew at dev.catalyst.perl.org frew at dev.catalyst.perl.org
Tue Jun 1 01:35:36 GMT 2010


Author: frew
Date: 2010-06-01 02:35:36 +0100 (Tue, 01 Jun 2010)
New Revision: 9506

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Admin.pm
   DBIx-Class/0.08/trunk/t/03podcoverage.t
Log:
do not lazily set up include dirs and do not localize

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Admin.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Admin.pm	2010-06-01 00:28:05 UTC (rev 9505)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Admin.pm	2010-06-01 01:35:36 UTC (rev 9506)
@@ -85,16 +85,19 @@
   lazy_build  => 1,
 );
 
+sub BUILD {
+   my $self = shift;
+   require Class::MOP;
+
+   my @include_dirs = @{$self->include_dirs};
+   @INC = (@include_dirs, @INC);
+   Class::MOP::load_class($self->schema_class);
+}
+
 sub _build_schema {
   my ($self)  = @_;
-  require Class::MOP;
-  {
-    my @include_dirs = @{$self->include_dirs};
-    local @INC = (@include_dirs, @INC);
-    Class::MOP::load_class($self->schema_class);
-  }
-  $self->connect_info->[3]->{ignore_version} =1;
-  return $self->schema_class->connect(@{$self->connect_info()} ); # ,  $self->connect_info->[3], { ignore_version => 1} );
+  $self->connect_info->[3]{ignore_version} = 1;
+  return $self->schema_class->connect(@{$self->connect_info});
 }
 
 =head2 include_dirs

Modified: DBIx-Class/0.08/trunk/t/03podcoverage.t
===================================================================
--- DBIx-Class/0.08/trunk/t/03podcoverage.t	2010-06-01 00:28:05 UTC (rev 9505)
+++ DBIx-Class/0.08/trunk/t/03podcoverage.t	2010-06-01 01:35:36 UTC (rev 9506)
@@ -23,7 +23,7 @@
 # of what this is doing might be in order.
 # The exceptions structure below is a hash keyed by the module
 # name. Any * in a name is treated like a wildcard and will behave
-# as expected. Modules are matched by longest string first, so 
+# as expected. Modules are matched by longest string first, so
 # A::B::C will match even if there is A::B*
 
 # The value for each is a hash, which contains one or more
@@ -88,6 +88,12 @@
         /]
     },
 
+    'DBIx::Class::Admin'        => {
+        ignore => [ qw/
+            BUILD
+        /]
+     },
+
     'DBIx::Class::Storage::DBI::Replicated*'        => {
         ignore => [ qw/
             connect_call_do_sql




More information about the Bast-commits mailing list