Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Why I like functional programming

by tilly (Archbishop)
on Oct 01, 2000 at 03:25 UTC ( #34786=perlmeditation: print w/replies, xml ) Need Help??

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://34786]
Approved by root
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2017-06-28 13:15 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (638 votes). Check out past polls.