Help for this page

Select Code to Download


  1. or download this
    use strict;
    use vars qw(@open_tags %handlers %bal_tag_attribs);
    use HTML::Entities qw(encode_entities);
    use Carp;
    
  2. or download this
    # This covers the majority of rules
    %bal_tag_attribs = (
    ...
      # And our escape mode.
      '[code]' => ret_escape_code(qr(\[/code\]), "[code]"),
    );
    
  3. or download this
    sub ret_const_tag_open {
      my $tag = shift;
    ...
      my $err = join '', @_;
      return "<h2><font color=red>$err</font></h2> ";
    }
    
  4. or download this
    
    =head1 B<scrub_input()>
    ...
      }
      confess("I have no idea how I got here!");
    }