X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FApplication.pm;h=fcbb13cadbae123204652dbb24b3a22770ff1e63;hb=84159627d91360d4ec4f02d0c0de5e7addd6c98f;hp=df66285c75572249e9df5733496a8f8e61e190c1;hpb=767c12f0b134e503bdcd3c5e58464454f63192b0;p=maypole.git diff --git a/lib/Maypole/Application.pm b/lib/Maypole/Application.pm index df66285..fcbb13c 100644 --- a/lib/Maypole/Application.pm +++ b/lib/Maypole/Application.pm @@ -5,18 +5,6 @@ use warnings; use UNIVERSAL::require; use Maypole; -# funny little gimmick ;) -my $banner = <<''; - __ __ _ -| \/ | __ _ _ _ _ __ ___ | | ___ -| |\/| |/ _` | | | | '_ \ / _ \| |/ _ \ -| | | | (_| | |_| | |_) | (_) | | __/ -|_| |_|\__,_|\__, | .__/ \___/|_|\___| - |___/|_| -= VERSION =- - -$banner =~ s/VERSION/$Maypole::VERSION/; -warn $banner; - our @ISA; sub import { @@ -30,6 +18,7 @@ sub import { *{"$caller\::debug"} = sub { 1 }; warn "Debugging enabled"; } + elsif (/^-.*$/) { warn "Unknown flag: $_" } else { # The plugin caller should be our application class