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!");
}