File Coverage

blib/lib/Syntax/Keyword/RawQuote.pm
Criterion Covered Total %
statement 17 21 80.9
branch 0 2 0.0
condition 2 2 100.0
subroutine 6 7 85.7
pod 0 1 0.0
total 25 33 75.7


line stmt bran cond sub pod time code
1             package Syntax::Keyword::RawQuote;
2              
3 1     1   687 use 5.012;
  1         4  
4              
5 1     1   6 use strict;
  1         1  
  1         20  
6 1     1   5 use warnings;
  1         1  
  1         25  
7 1     1   5 use XSLoader;
  1         10  
  1         64  
8              
9             BEGIN {
10 1     1   3 our $VERSION = '0.04';
11 1         1 our $AUTHORITY = 'cpan:ARODLAND';
12 1         626 XSLoader::load(__PACKAGE__);
13             }
14              
15             sub import {
16 10     10   6040 my ($class, %args) = @_;
17              
18 10   100     49 my $keyword = $args{"-as"} || "r";
19 10         288 $^H{+HINTK_KEYWORDS} .= ",$keyword";
20             }
21              
22             sub uninstall {
23 0     0 0   my ($class, %args) = @_;
24 0 0         if ($args{"-as"}) {
25 0           $^H{+HINTK_KEYWORDS} =~ s/,\Q$args{"-as"}\E//;
26             } else {
27 0           $^H{+HINTK_KEYWORDS} = "";
28             }
29             }
30              
31             1;
32              
33             __END__