sub import {
my ( $class, @arguments ) = @_;
+
my $caller = caller(0);
+
+ if ( $caller eq 'main' ) {
+ return;
+ }
# Prepare inheritance
unless ( $caller->isa($class) ) {
no strict 'refs';
push @{"$caller\::ISA"}, $class;
}
-
+
if ( $caller->engine ) {
-
- unless ( $caller eq 'main' ) {
- $caller->log->warn( qq/Attempt to re-initialize "$caller"/ );
- }
-
+ $caller->log->warn( qq/Attempt to re-initialize "$caller"/ );
return;
}
foreach (@arguments) {
if ( /^-Debug$/ ) {
- $flags->{log} = 1
+ $flags->{log} = ( $flags->{log} ) ? 'debug,' . $flags->{log} : 'debug';
}
elsif (/^-(\w+)=?(.*)$/) {
$flags->{ lc $1 } = $2;