*{"${caller}::TITLE"} = sub () { $title };
*{"${caller}::debug"} = sub {
local $Log::Log4perl::caller_depth = $Log::Log4perl::caller_depth + 1;
- $_[0]->({qw/level debug message/ => $_[1]})
+ $_[0]->{'psgix.logger'}->({qw/level debug message/ => $_[1]})
};
+ *{"${caller}::reply"} = sub { [200, ['Content-Type' => 'text/plain'], [ @_ ] ] }
+
}
##################################################