lib/Frey/Bootstrap.pm

package Frey::Bootstrap;

=head1 DESCRIPTION

Bootstrap L<Frey> framework into existence

=cut

use warnings;
use strict;

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