lib/Frey/Bootstrap.pm

package Frey::Bootstrap;

=head1 DESCRIPTION

Bootstrap L<Frey> framework into existence

=cut

use File::Tee qw/tee/;
use Carp qw/croak/;

our $log_path;

if ( ! $log_path && ! $ENV{FREY_NO_LOG}) {
        $log_path ||= 'var/log/' . time() . '.log';

        tee STDERR, {
#               prefix => $0 . "[$$]: ",
                reopen => $log_path,
        };

        warn "# tee STDERR -> $log_path";
}

1;
1	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;