#
# 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 .
#



###
### promote_if
###

## Chapter 1 section 7.1

sub promote_if {
  my $is_interesting = shift;          
  my $element = shift;
  if ($is_interesting->($element->{_tag}) {
    return ['keeper', join '', map {$_->[1]} @_];
  } else {
    return @_;
  }
}


## Chapter 1 section 7.1

my @tagged_texts = walk_html($tree, 
                             sub { ['maybe', $_[0]] }, 
                             sub { promote_if(
                                     sub { $_[0] eq 'h1' },
                                     $_[0])
                             });