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


line stmt bran cond sub pod time code
1 3     3   219725 use strict;
  3         26  
  3         87  
2 3     3   16 use warnings;
  3         5  
  3         140  
3             package B::Hooks::Parser; # git description: v0.19-16-gb88ab1c
4             # ABSTRACT: Interface to perl's parser variables
5             # KEYWORDS: perl internals API parser hooks modify
6              
7 3     3   1289 use B::Hooks::OP::Check;
  3         3826  
  3         96  
8 3     3   20 use parent qw/DynaLoader/;
  3         5  
  3         12  
9              
10             our $VERSION = '0.20';
11              
12 3     3 1 674 sub dl_load_flags { 0x01 }
13              
14             __PACKAGE__->bootstrap($VERSION);
15              
16             sub inject {
17 2     2 1 392 my ($code) = @_;
18              
19 2         13 setup();
20              
21 2         7 my $line = get_linestr();
22 2         8 my $offset = get_linestr_offset();
23              
24 2         6 substr($line, $offset, 0) = $code;
25              
26 2         16 set_linestr($line);
27              
28 2         1556 return;
29             }
30              
31             1;
32              
33             __END__