Select Code to Download

sub story {
  my ($source,$author) = @_;
...
  # If I wrote a story, I want people to know I wrote it at the bottom
+.
  paragraph($tab,"written by $root_user", { class => 'author' }) if !$
+author;
}

#!/usr/bin/perl
use strict;
...
use Base::HTML qw(html story);

html( code => sub { story(*DATA,'me') });

__DATA__
I was born on July 10th, 1971 at Fort George G. Meade, Maryland. ...
...
<blockquote>"The stupid question is the question un ...</blockquote>
<blockquote>"Sticks and stones may break my bones,  ...</blockquote>
<blockquote>"Nothing is ever complete until all mat ...</blockquote>