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