diff options
author | P. J. McDermott <pjm@nac.net> | 2012-08-12 08:44:20 (EDT) |
---|---|---|
committer | P. J. McDermott <pjm@nac.net> | 2012-08-12 08:44:20 (EDT) |
commit | a82b90f57640ce2424bd8ca50c0ed0a20bb3cc69 (patch) | |
tree | e35b2d0b32f0bb84d772f5ed39a769da0868fea9 /scripts/MarkdownBook/HTMLTree.pm | |
parent | 30c8eb60279b849f4bbe4ae6d12b9ce29715a056 (diff) |
Remove cruft.
Diffstat (limited to 'scripts/MarkdownBook/HTMLTree.pm')
-rw-r--r-- | scripts/MarkdownBook/HTMLTree.pm | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/scripts/MarkdownBook/HTMLTree.pm b/scripts/MarkdownBook/HTMLTree.pm index 419eb53..e01bab0 100644 --- a/scripts/MarkdownBook/HTMLTree.pm +++ b/scripts/MarkdownBook/HTMLTree.pm @@ -41,32 +41,4 @@ sub find_elements_by_tag_names return @retlist; } -sub each_text -{ - my ($elem) = @_; - - my $child = $elem; - my $root = $elem; - - return _each_text_recursive($child, $root); -} - -sub _each_text_recursive -{ - my ($elem, $root) = @_; - - my $child; - my @retlist = (); - - foreach $child ($elem->content_list()) { - if (ref($_) eq 'HTML::Element') { - push(@retlist, _each_text_recursive($child, $root)); - } else { - push(@retlist, $child); - } - } - - return @retlist; -} - 1; |