X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FHTML%2FElement%2FLibrary.pm;fp=lib%2FHTML%2FElement%2FLibrary.pm;h=553fb0c2585f3a2ee370eda7d3fc16d1745fc4c3;hb=aa0161264c67d7802e79492b05aff88533d79d20;hp=5336eefe4650c91746da1864d49d3e6970b3637a;hpb=e87db89a1b545ced3beb0bcd80dda173ec7c1084;p=html-element-library.git

diff --git a/lib/HTML/Element/Library.pm b/lib/HTML/Element/Library.pm
index 5336eef..553fb0c 100644
--- 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};
 			}
 		}