view release on metacpan or  search on metacpan

lib/App/ReslirpTunnel/Logger.pm  view on Meta::CPAN

        if ($args{log_to_stderr}) {
            $self->{log_to_stderr} = 1;
            $self->{log} = Log::Any->get_logger(default_adapter => ['Stderr', log_level => $level]);
        }
        else {
            $self->{log_to_stderr} = 0;
            my $fn = $self->{log_file} = $args{log_file} // "/tmp/reslirp-tunnel.log";
            Path::Tiny->new($fn)->parent->mkdir;
            $self->{log} = Log::Any->get_logger(default_adapter => ['File', "$fn", log_level => $level]);
            if (defined $args{log_uid}) {
                chown $args{log_uid}, -1, $fn;
            }
            # warn "Sending log to $fn\n";
        }
        $self->{log_prefix} = $args{log_prefix} // 'ReslirpTunnel';
    };
    if ($@) {
        warn "Can't initialize logger for $self, (uid: $<, euid: $>): $@\n";
        die $@;
    }
    # warn "logger initialized for $self: $self->{log}, level: $args{log_level}\n";