From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 31 May 2010 16:59:48 +0000 (+0000)
Subject: Remove leftovers
X-Git-Tag: v0.08122~41^2~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6875b150ef4ed534bcef51352be8224eeabd0d51;p=dbsrgits%2FDBIx-Class.git

Remove leftovers
---

diff --git a/lib/DBIx/Class/Admin.pm b/lib/DBIx/Class/Admin.pm
index b43e23b..366c2b4 100644
--- a/lib/DBIx/Class/Admin.pm
+++ b/lib/DBIx/Class/Admin.pm
@@ -90,8 +90,6 @@ sub _build_schema {
   require Class::MOP;
   {
     my @include_dirs = @{$self->include_dirs};
-    $self->_debug("Adding to \@INC:\n".join "\n",@include_dirs)
-        if $self->debug;
     local @INC = (@include_dirs, @INC);
     Class::MOP::load_class($self->schema_class);
   }
@@ -296,20 +294,6 @@ has quiet => (
   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,
diff --git a/script/dbicadmin b/script/dbicadmin
index cc24560..c2b9ccf 100755
--- a/script/dbicadmin
+++ b/script/dbicadmin
@@ -87,7 +87,7 @@ if($opts->{selfinject_pod}) {
     );
 }
 
-# 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};
 }