# # This software is Copyright 2005 by Elsevier Inc. You may use it # under the terms of the license at http://perl.plover.com/hop/LICENSE.txt . # ### ### walk_html ### ## Chapter 1 section 7 sub walk_html { my ($html, $textfunc, $elementfunc) = @_; return $textfunc->($html) unless ref $html; # It's a plain string my @results; for my $item (@{$html->{_content}}) { push @results, walk_html($item, $textfunc, $elementfunc); } return $elementfunc->($html, @results); }