File Coverage

blib/lib/Quote/Code.pm
Criterion Covered Total %
statement 23 25 92.0
branch 2 4 50.0
condition 0 6 0.0
subroutine 7 7 100.0
pod n/a
total 32 42 76.1


line stmt bran cond sub pod time code
1             package Quote::Code;
2              
3 10     10   207623 use v5.14.0;
  10         38  
4 10     10   57 use warnings;
  10         16  
  10         432  
5              
6 10     10   50 use Carp qw(croak);
  10         24  
  10         801  
7              
8 10     10   64 use XSLoader;
  10         13  
  10         476  
9             BEGIN {
10 10     10   30 our $VERSION = '1.0102';
11 10         8393 XSLoader::load;
12             }
13              
14             my %export = (
15             qc => HINTK_QC,
16             qc_to => HINTK_QC_TO,
17             qcw => HINTK_QCW,
18             );
19              
20             sub import {
21 11     11   161 my $class = shift;
22              
23 11         17 my @todo;
24 11         27 for my $item (@_) {
25 0   0     0 push @todo, $export{$item} || croak qq{"$item" is not exported by the $class module};
26             }
27 11 50       57 for my $item (@todo ? @todo : values %export) {
28 33         11808 $^H{$item} = 1;
29             }
30             }
31              
32             sub unimport {
33 1     1   6 my $class = shift;
34 1         2 my @todo;
35 1         3 for my $item (@_) {
36 0   0     0 push @todo, $export{$item} || croak qq{"$item" is not exported by the $class module};
37             }
38 1 50       5 for my $item (@todo ? @todo : values %export) {
39 3         1548 delete $^H{$item};
40             }
41             }
42              
43             'ok'
44              
45             __END__