[Bast-commits] r9361 - DBIx-Class/0.08/branches/dbicadmin-non-versioned/lib/DBIx/Class

[edenc at dev.catalyst.perl.org]

Author: edenc
Date: 2010-05-14 03:02:41 +0100 (Fri, 14 May 2010)
New Revision: 9361

Modified:
   DBIx-Class/0.08/branches/dbicadmin-non-versioned/lib/DBIx/Class/Admin.pm
Log:
added debug option

Modified: DBIx-Class/0.08/branches/dbicadmin-non-versioned/lib/DBIx/Class/Admin.pm
===================================================================
--- DBIx-Class/0.08/branches/dbicadmin-non-versioned/lib/DBIx/Class/Admin.pm	2010-05-12 14:19:30 UTC (rev 9360)
+++ DBIx-Class/0.08/branches/dbicadmin-non-versioned/lib/DBIx/Class/Admin.pm	2010-05-14 02:02:41 UTC (rev 9361)
@@ -89,7 +89,10 @@
   my ($self)  = @_;
   require Class::MOP;
   {
-    local @INC = (@{$self->include_dirs}, @INC);
+    my @include_dirs = @{$self->include_dirs};
+    $self->_debug("Adding to \@INC:\n".join "\n", at include_dirs)
+        if $self->debug;
+    local @INC = (@include_dirs, @INC);
     Class::MOP::load_class($self->schema_class);
   }
   $self->connect_info->[3]->{ignore_version} =1;
@@ -293,6 +296,20 @@
   isa => Bool,
 );
 
+=head2 debug
+
+Print debug information
+
+=cut
+
+has debug => (
+  is => 'rw',
+  isa => Bool,
+  default => 0
+);
+
+sub _debug { shift; print @_ }
+
 has '_confirm' => (
   is  => 'bare',
   isa => Bool,