File Coverage

blib/lib/invoker.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	3	4	75.0
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	43	44	97.7

package invoker;

use strict;
use 5.010_001;

use B::Hooks::OP::Check;
use B::Hooks::EndOfScope;

our $VERSION = "0.34";

use Devel::Declare;
require XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

sub import {
    my ($class) = @_;

    my $parser = Devel::Declare::setup();

    my $linestr = Devel::Declare::get_linestr();
    my $offset  = Devel::Declare::get_linestr_offset();
    substr($linestr, $offset, 0) = 'use B::OPCheck const => check => \&invoker::_check;';
    Devel::Declare::set_linestr($linestr);

    my $hook = $class->setup;

    on_scope_end {
        $class->teardown($hook);
    };

    return;
}

sub _check {
    my $op = shift;
    return unless ref($op->gv) eq 'B::PV';

    my $linestr = Devel::Declare::get_linestr;
    my $offset  = Devel::Declare::get_linestr_offset;

    if (substr($linestr, $offset-2, 3) eq '$->') {
        substr($linestr, $offset-2, 3) = '$-->';
        Devel::Declare::set_linestr($linestr);
    }
}

1;
__END__