Help for this page

Select Code to Download


  1. or download this
    use lib qw(/var/www/blogapp);
use Config ();
...
use Carp::Heavy;

1;
  2. or download this
    package Config.pm;
use strict;
...
our $smtp_sender = 'blogapp@example.com';

1;
  3. or download this
    use strict;
my $database = $Config::database;
...
;
print STDERR "FOOBAR $Config::blog_title\n";
my $template = HTML::Template->new(filename => $tmplfile, die_on_bad_p
+arams => 0);