nuke debugging code

diff --git a/lib/HTML/Zoom/FilterBuilder.pm b/lib/HTML/Zoom/FilterBuilder.pm
index 27721e2..0d4be1a 100644 (file)
--- a/lib/HTML/Zoom/FilterBuilder.pm
+++ b/lib/HTML/Zoom/FilterBuilder.pm
@@ -1,7 +1,5 @@
 package HTML::Zoom::FilterBuilder;
 
-use Devel::Dwarn;
-
 use strict;
 use warnings FATAL => 'all';
 use HTML::Zoom::CodeStream;
@@ -30,7 +28,7 @@ sub _stream_from_proto {
     require HTML::Zoom::Parser::BuiltIn;
     return HTML::Zoom::Parser::BuiltIn->html_to_stream($$proto);
   }
-  die "What the hell is $proto and how should I turn a $ref into a stream?";
+  die "Don't know how to turn $proto (ref $ref) into a stream";
 }
 
 sub _stream_concat {

diff --git a/lib/HTML/Zoom/StreamBase.pm b/lib/HTML/Zoom/StreamBase.pm
index 96edbf0..3df8a81 100644 (file)
--- a/lib/HTML/Zoom/StreamBase.pm
+++ b/lib/HTML/Zoom/StreamBase.pm
@@ -23,12 +23,10 @@ sub flatten {
       return unless $source_stream;
       my $next;
       until (($next) = ($cur_stream ? $cur_stream->next : ())) {
-#::Dwarn $source_stream;
         unless (($cur_stream) = $source_stream->next) {
           undef $source_stream; return;
         }
       }
-#::Dwarn $next;
       return $next;
     }
   });

diff --git a/t/actions.t b/t/actions.t
index 3bab29c..ab8e92b 100644 (file)
--- a/t/actions.t
+++ b/t/actions.t
@@ -2,8 +2,6 @@ use strict;
 use warnings FATAL => 'all';
 use Test::More;
 
-use Devel::Dwarn;
-
 use HTML::Zoom::Parser::BuiltIn;
 use HTML::Zoom::Producer::BuiltIn;
 use HTML::Zoom::SelectorParser;