use UNIVERSAL::require;
use Maypole;
-# funny little gimmick ;)
-my $banner = <<'';
- __ __ _
-| \/ | __ _ _ _ _ __ ___ | | ___
-| |\/| |/ _` | | | | '_ \ / _ \| |/ _ \
-| | | | (_| | |_| | |_) | (_) | | __/
-|_| |_|\__,_|\__, | .__/ \___/|_|\___|
- |___/|_| -= VERSION =-
-
-$banner =~ s/VERSION/$Maypole::VERSION/;
-warn $banner;
-
our @ISA;
sub import {
*{"$caller\::debug"} = sub { 1 };
warn "Debugging enabled";
}
+ elsif (/^-.*$/) { warn "Unknown flag: $_" }
else {
# The plugin caller should be our application class