From: tbrannon Date: Fri, 9 Jan 2009 19:07:08 +0000 (-0500) Subject: passover method tested X-Git-Tag: 5.200_001~46 X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=5f53bf212e506831653abc6442b846782211e12c;p=html-element-library.git passover method tested --- diff --git a/lib/HTML/Element/Library.pm b/lib/HTML/Element/Library.pm index 0395853..08f6ee5 100644 --- a/lib/HTML/Element/Library.pm +++ b/lib/HTML/Element/Library.pm @@ -45,12 +45,7 @@ sub HTML::Element::passover { my @s = HTML::Element::siblings($exodus); - warn "sibling count", scalar @s; - warn "siblings", join ':', @s; - for my $s (@s) { - warn "SIBLING: $s"; - warn "ref sib", ref $s; next unless ref $s; if ($s->attr('id') eq $child_id) { ; @@ -557,9 +552,9 @@ sub HTML::Element::table2 { # ++$DEBUG if $table{debug} ; # Get the table element - warn 1; + #warn 1; $table->{table_node} = ref_or_ld( $tree, $p{table_ld} ) ; - warn 2; + #warn 2; $table->{table_node} or confess "table tag not found via " . Dumper($p{table_ld}) ; @@ -598,12 +593,12 @@ sub HTML::Element::table2 { if defined $p{tr_proc}; warn "data row redux: " . Dumper $row if $p{debug}; - warn 3.3; + #warn 3.3; $p{td_proc}->($new_tr_node, $row); push @table_rows, $new_tr_node; - warn 4.4; + #warn 4.4; redo; }