File Coverage

blib/lib/Syntax/Feature/QwComments.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Syntax::Feature::QwComments;
2              
3 7     7   332842 use strict;
  7         19  
  7         273  
4 7     7   38 use warnings;
  7         15  
  7         2336  
5              
6 7     7   7849 use version; our $VERSION = qv('v1.12.0');
  7         19618  
  7         44  
7              
8 7     7   12554 use Devel::CallParser qw( );
  7         70702  
  7         408  
9 7     7   61 use XSLoader qw( );
  7         15  
  7         1252  
10              
11             XSLoader::load('Syntax::Feature::QwComments', $VERSION);
12              
13             sub import {
14 16     16   69681 require Lexical::Sub;
15 16         31487 Lexical::Sub->import( 'qw' => \&replacement_qw );
16             }
17              
18             sub unimport {
19 12     12   1918 require Lexical::Sub;
20 12         2093 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__