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 e0c08fff70e6604f060c4d7f7b8b19ff1761eb0c..df66285c75572249e9df5733496a8f8e61e190c1 100644 (file)
--- 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.