Parent Directory | Revision Log
branch for no-pager integration
1 | dpavlin | 532 | package Frey::Bootstrap; |
2 | |||
3 | =head1 DESCRIPTION | ||
4 | |||
5 | Bootstrap L<Frey> framework into existence | ||
6 | |||
7 | =cut | ||
8 | |||
9 | use File::Tee qw/tee/; | ||
10 | use Carp qw/croak/; | ||
11 | |||
12 | our $log_path; | ||
13 | |||
14 | if ( ! $log_path && ! $ENV{FREY_NO_LOG}) { | ||
15 | $log_path ||= 'var/log/' . time() . '.log'; | ||
16 | |||
17 | tee STDERR, { | ||
18 | # prefix => $0 . "[$$]: ", | ||
19 | reopen => $log_path, | ||
20 | }; | ||
21 | |||
22 | warn "# tee STDERR -> $log_path"; | ||
23 | } | ||
24 | |||
25 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |