| 122 |
return undef unless defined $format; |
return undef unless defined $format; |
| 123 |
|
|
| 124 |
# caller() called only when necessary |
# caller() called only when necessary |
| 125 |
my $needs_caller = $format =~ /%[FLP]/; |
my $needs_caller = $format =~ /%[FLPS]/; |
| 126 |
return sub { |
return sub { |
| 127 |
my %p = @_; |
my %p = @_; |
| 128 |
$p{p} = delete $p{level}; |
$p{p} = delete $p{level}; |
| 136 |
my $depth = 0; |
my $depth = 0; |
| 137 |
$depth++ while caller($depth) =~ /^Log::Dispatch/; |
$depth++ while caller($depth) =~ /^Log::Dispatch/; |
| 138 |
$depth += :Dispatch::Config::CallerDepth; |
$depth += :Dispatch::Config::CallerDepth; |
| 139 |
@p{qw(P F L)} = caller($depth); |
@p{qw(P F L S)} = caller($depth); |
| 140 |
} |
} |
| 141 |
|
|
| 142 |
my $log = $format; |
my $log = $format; |
| 143 |
$log =~ s{ |
$log =~ s{ |
| 144 |
(%d(?:{(.*?)})?)| # $1: datetime $2: datetime fmt |
(%d(?:{(.*?)})?)| # $1: datetime $2: datetime fmt |
| 145 |
(?:%([%pmFLPni])) # $3: others |
(?:%([%pmFLPniS])) # $3: others |
| 146 |
}{ |
}{ |
| 147 |
if ($1 && $2) { |
if ($1 && $2) { |
| 148 |
_strftime($2); |
_strftime($2); |
| 264 |
%n newline (\n) |
%n newline (\n) |
| 265 |
%% % itself |
%% % itself |
| 266 |
%i process-id, returns POSIX::getpid() |
%i process-id, returns POSIX::getpid() |
| 267 |
|
%S subroutine |
| 268 |
|
|
| 269 |
Note that datetime (%d) format is configurable by passing C<strftime> |
Note that datetime (%d) format is configurable by passing C<strftime> |
| 270 |
fmt in braket after %d. (I know it looks quite messy, but its |
fmt in braket after %d. (I know it looks quite messy, but its |
Parent Directory
| 
Revision Log
| 
Patch
