blib/lib/Dancer/Logger/File/PerRequest.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 1 | 23 | 4.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
76 | 0 | 0 | 0 | ref $fh and $fh->opened |
96 | 0 | 0 | 0 | $logroot and not -d $logroot |
0 | 0 | 0 | $logroot and not -d $logroot and not mkdir($logroot) | |
105 | 0 | 0 | 0 | -d $expected_path and -x _ |
0 | 0 | 0 | -d $expected_path and -x _ and -w _ | |
107 | 0 | 0 | 0 | -w $logroot and -x _ |
110 | 0 | 0 | 0 | -w $logroot and -x _ |
line | l | !l | condition |
---|---|---|---|
37 | 1 | 0 | setting('logfile_callback') || sub { my(@d) = localtime(); my $file = sprintf('%04d%02d%02d%02d%02d%02d', $d[5] + 1900, $d[4] + 1, $d[3], $d[2], $d[1], $d[0]); my $request_id = 'Dancer::SharedData'->request ? 'Dancer::SharedData'->request->id : ''; return $file . '-' . $$ . '-' . $request_id . '.log'; } |