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