[Bast-commits] r9484 - in DBIx-Class/0.08/branches/dbicadmin-non-versioned: lib/DBIx/Class script

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-05-31 17:59:48 +0100 (Mon, 31 May 2010)
New Revision: 9484

Modified:
   DBIx-Class/0.08/branches/dbicadmin-non-versioned/lib/DBIx/Class/Admin.pm
   DBIx-Class/0.08/branches/dbicadmin-non-versioned/script/dbicadmin
Log:
Remove leftovers

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-31 16:50:49 UTC (rev 9483)
+++ DBIx-Class/0.08/branches/dbicadmin-non-versioned/lib/DBIx/Class/Admin.pm	2010-05-31 16:59:48 UTC (rev 9484)
@@ -90,8 +90,6 @@
   require Class::MOP;
   {
     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);
   }
@@ -296,20 +294,6 @@
   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,

Modified: DBIx-Class/0.08/branches/dbicadmin-non-versioned/script/dbicadmin
===================================================================
--- DBIx-Class/0.08/branches/dbicadmin-non-versioned/script/dbicadmin	2010-05-31 16:50:49 UTC (rev 9483)
+++ DBIx-Class/0.08/branches/dbicadmin-non-versioned/script/dbicadmin	2010-05-31 16:59:48 UTC (rev 9484)
@@ -87,7 +87,7 @@
     );
 }
 
-# FIXME - lowercasin will eventually go away when Getopt::Long::Descriptive is fixed
+# FIXME - lowercasing will eventually go away when Getopt::Long::Descriptive is fixed
 if($opts->{i}) {
     $opts->{include_dirs} = delete $opts->{i};
 }