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   682 use 5.012;
  1         3  
4              
5 1     1   4 use strict;
  1         1  
  1         21  
6 1     1   9 use warnings;
  1         1  
  1         25  
7 1     1   3 use XSLoader;
  1         1  
  1         50  
8              
9             BEGIN {
10 1     1   1 our $VERSION = '0.03';
11 1         1 our $AUTHORITY = 'cpan:ARODLAND';
12 1         595 XSLoader::load(__PACKAGE__);
13             }
14              
15             sub import {
16 10     10   3082 my ($class, %args) = @_;
17              
18 10   100     35 my $keyword = $args{"-as"} || "r";
19 10         239 $^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__