view release on metacpan or  search on metacpan

lib/HTML/TreeBuilder.pm  view on Meta::CPAN

391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
             $here_tag
                 = ( $here = $here->{'_parent'} || last )->{'_tag'};
         }    # end while
         $ptag = ( $pos = $self->{'_pos'} || $self )
             ->{'_tag'};    # better update!
     }
 
     # end of strict-p block.
 }
 
# And now, get busy...
#----------------------------------------------------------------------
 if ( !$self->{'_implicit_tags'} ) {    # bimskalabim
                                        # do nothing
     print $indent, " * _implicit_tags is off.  doing nothing\n"
         if DEBUG > 1;
 
#----------------------------------------------------------------------
 }
 elsif ( $HTML::TreeBuilder::isHeadOrBodyElement{$tag} ) {
     if ( $pos->is_inside('body') ) {    # all is well