File Coverage

blib/lib/B/Hooks/Parser.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	28	28	100.0

use strict;
use warnings;
package B::Hooks::Parser; # git description: v0.20-4-g44a7b86
# ABSTRACT: Interface to perl's parser variables
# KEYWORDS: perl internals API parser hooks modify

use B::Hooks::OP::Check;
use parent qw/DynaLoader/;

our $VERSION = '0.21';

sub dl_load_flags { 0x01 }

__PACKAGE__->bootstrap($VERSION);

sub inject {
    my ($code) = @_;

    setup();

    my $line   = get_linestr();
    my $offset = get_linestr_offset();

    substr($line, $offset, 0) = $code;

    set_linestr($line);

    return;
}

1;

__END__