Refactor tests (first pass)

[html-element-library.git] / lib / HTML / Element / Library.pm

diff --git a/lib/HTML/Element/Library.pm b/lib/HTML/Element/Library.pm
index 5336eefe4650c91746da1864d49d3e6970b3637a..553fb0c2585f3a2ee370eda7d3fc16d1745fc4c3 100644 (file)
--- a/lib/HTML/Element/Library.pm
+++ b/lib/HTML/Element/Library.pm
@@ -301,13 +301,13 @@ sub HTML::Element::iter2 { ## no critic (RequireArgUnpacking)
                my $item_data  = $p{item_data}->($p{wrapper_data});
                last unless defined $item_data;
 
-               warn Dumper('item_data', $item_data);
+               warn Dumper('item_data', $item_data) if $p{debug};
 
                my $item_elems = [ map { $_->clone } @{$_item_elems} ] ;
 
                if ($p{debug}) {
                        for (@{$item_elems}) {
-                               warn 'ITEM_ELEMS ', $_->as_HTML;
+                               warn 'ITEM_ELEMS ', $_->as_HTML if $p{debug};
                        }
                }
 
@@ -315,7 +315,7 @@ sub HTML::Element::iter2 { ## no critic (RequireArgUnpacking)
 
                if ($p{debug}) {
                        for (@{$new_item_elems}) {
-                               warn 'NEWITEM_ELEMS ', $_->as_HTML;
+                               warn 'NEWITEM_ELEMS ', $_->as_HTML if $p{debug};
                        }
                }