Parent Directory | Revision Log
fix strict critic
1 | dpavlin | 532 | package Frey::Bootstrap; |
2 | |||
3 | =head1 DESCRIPTION | ||
4 | |||
5 | Bootstrap L<Frey> framework into existence | ||
6 | |||
7 | =cut | ||
8 | |||
9 | dpavlin | 1115 | use warnings; |
10 | use strict; | ||
11 | |||
12 | dpavlin | 532 | 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 |