File Coverage

blib/lib/invoker.pm

Criterion	Covered	Total	%
statement	14	31	45.1
branch	0	4	0.0
condition			n/a
subroutine	5	8	62.5
pod			n/a
total	19	43	44.1

package invoker;

use strict;
use 5.010_001;

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

our $VERSION = "0.29_003";

use B::Hooks::Parser;
require XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

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

    my $parser = B::Hooks::Parser::setup();

    my $linestr = B::Hooks::Parser::get_linestr();
    my $offset  = B::Hooks::Parser::get_linestr_offset();
    B::Hooks::Parser::inject('use B::OPCheck const => check => \&invoker::_check;');

    my $hook = $class->setup;

    on_scope_end {
        $class->teardown($hook);
        B::Hooks::Parser::teardown($parser);
    };

    return;
}

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

    my $linestr = B::Hooks::Parser::get_linestr;
    my $offset  = B::Hooks::Parser::get_linestr_offset;

    if (substr($linestr, $offset-2, 3) eq '$->') {
        substr($linestr, $offset-2, 3, '$-->');
        B::Hooks::Parser::set_linestr($linestr);
    }
}

1;
__END__