File Coverage

blib/lib/Log/ger/OptAway.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch	0	4	0.0
condition			n/a
subroutine	4	7	57.1
pod	0	2	0.0
total	16	36	44.4

package Log::ger::OptAway;

our $DATE = '2017-06-21'; # DATE
our $VERSION = '0.002'; # VERSION

use strict;
use warnings;

use Log::ger::Util;

sub PRIO_after_install_log_routine { 99 }

sub after_install_log_routine {
    require B::CallChecker;
    require B::Generate;

    my ($self, %args) = @_;
    return [undef] unless $args{target} eq 'package';

    my $fullname = "$args{target_arg}\::log_$args{str_level}";
    if ($Log::ger::Current_Level < $args{level}) {
        #print "D:no-oping $fullname\n";
        B::CallChecker::cv_set_call_checker(
            \&{$fullname},
            sub { B::SVOP->new("const",0,!1) },
            \!1,
        );
    }
    [undef];
}

sub import {
    my $self = shift;

    my $caller = caller(0);

    Log::ger::Util::add_plugin('after_install_log_routine', __PACKAGE__);
}

1;
# ABSTRACT: Optimize away higher-level log statements

__END__