File Coverage

src/xs/xlog.cc

Criterion	Covered	Total	%
statement	28	28	100.0
branch	31	62	50.0
condition			n/a
subroutine			n/a
pod			n/a
total	59	90	65.5

#include "xlog.h"
#include

using namespace xs;
using namespace panda;
using namespace panda::log;

struct PerlSubLogger : ILogger {
    using fn_t = function;
    fn_t fn;

    PerlSubLogger (const Sub& sub) : fn(xs::in(sub)) {}

    void log (const string& msg, const Info& info) override {
        if (!is_perl_thread()) throw std::logic_error("can't call pure-perl logging callback: log() called from perl-foreign thread");
        fn(msg, info.level);
    }
};

struct PerlSubFormatter : IFormatter {
    using fn_t = function;
    fn_t fn;

    PerlSubFormatter (const Sub& sub) : fn(xs::in(sub)) {}

    string format (std::string& msg, const Info& info) const override {
        if (!is_perl_thread()) throw std::logic_error("can't call pure-perl formatting callback: log() called from perl-foreign thread");
        return fn(msg, info.level, info.module->name(), info.file, info.line, info.func);
    }
};

static bool _init () {
    xs::at_perl_destroy([]{
        // remove all perl loggers and formatters from C++ modules as they are no longer available
        auto modules = get_modules();
        for (auto module : modules) {
            if (dyn_cast(module->get_logger().get())) module->set_logger(nullptr);
            if (dyn_cast(module->get_formatter().get())) module->set_formatter(nullptr);
        }
    });
    return true;
}
static bool __init = _init();

namespace xs {

ILoggerSP Typemap::in (Sv sv) {
    if (sv.is_sub_ref()) return new PerlSubLogger(sv);
    return xs::in(sv);
}

IFormatterSP Typemap::in (Sv sv) {
    if (sv.is_sub_ref()) return new PerlSubFormatter(sv);
    if (sv.is_string()) return new PatternFormatter(xs::in(sv));
    return xs::in(sv);
}

}