From 767c12f0b134e503bdcd3c5e58464454f63192b0 Mon Sep 17 00:00:00 2001 From: Sebastian Riedel Date: Sun, 17 Oct 2004 01:35:53 +0000 Subject: [PATCH] fun!!! =) git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@235 48953598-375a-da11-a14b-00016c27c3ee --- lib/Maypole/Application.pm | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) 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. -- 2.39.5