File Coverage

blib/lib/Syntax/Feature/QwComments.pm
Criterion Covered Total %
statement 16 19 84.2
branch n/a
condition n/a
subroutine 6 7 85.7
pod n/a
total 22 26 84.6


line stmt bran cond sub pod time code
1             package Syntax::Feature::QwComments;
2              
3 7     7   672361 use strict;
  7         22  
  7         244  
4 7     7   50 use warnings;
  7         19  
  7         254  
5              
6 7     7   2188 use version; our $VERSION = qv('v1.14.0');
  7         13685  
  7         46  
7              
8 7     7   3428 use Devel::CallParser qw( );
  7         17442  
  7         283  
9 7     7   60 use XSLoader qw( );
  7         22  
  7         1135  
10              
11             XSLoader::load('Syntax::Feature::QwComments', $VERSION);
12              
13             sub import {
14 6     6   42812 require Lexical::Sub;
15 0           Lexical::Sub->import( 'qw' => \&replacement_qw );
16             }
17              
18             sub unimport {
19 0     0     require Lexical::Sub;
20 0           Lexical::Sub->unimport( 'qw' => \&replacement_qw );
21             }
22              
23             *install = \&import; # For syntax.pm
24             *uninstall = \&unimport; # For syntax.pm
25              
26             1;
27              
28              
29             __END__