From: Sebastian Riedel <sri@labs.kraih.com>
Date: Sun, 17 Oct 2004 01:35:53 +0000 (+0000)
Subject: fun!!! =)
X-Git-Tag: 2.10~127
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=767c12f0b134e503bdcd3c5e58464454f63192b0;p=maypole.git

fun!!! =)


git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@235 48953598-375a-da11-a14b-00016c27c3ee
---

diff --git a/lib/Maypole/Application.pm b/lib/Maypole/Application.pm
index e0c08ff..df66285 100644
--- a/lib/Maypole/Application.pm
+++ b/lib/Maypole/Application.pm
@@ -3,6 +3,19 @@ package Maypole::Application;
 use strict;
 use warnings;
 use UNIVERSAL::require;
+use Maypole;
+
+# funny little gimmick ;)
+my $banner = <<'';
+ __  __                         _
+|  \/  | __ _ _   _ _ __   ___ | | ___
+| |\/| |/ _` | | | | '_ \ / _ \| |/ _ \
+| |  | | (_| | |_| | |_) | (_) | |  __/
+|_|  |_|\__,_|\__, | .__/ \___/|_|\___|
+              |___/|_| -= VERSION =-
+
+$banner =~ s/VERSION/$Maypole::VERSION/;
+warn $banner;
 
 our @ISA;
 
@@ -49,6 +62,12 @@ Maypole::Application - Maypole Universal Frontend
 
     use Maypole::Application;
 
+    use Maypole::Application qw(Config::YAML);
+
+    use Maypole::Application qw(-Debug Config::YAML -Setup);
+
+    use Maypole::Application qw(Config::YAML Loader -Setup -Debug);
+
 =head1 DESCRIPTION
 
 This is a universal frontend for mod_perl1, mod_perl2 and CGI.