File Coverage

blib/lib/Quote/Ref.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

package Quote::Ref;

use v5.12.0;

use warnings;

use Carp qw(croak);

use XSLoader;
BEGIN {
	our $VERSION = '0.04';
	XSLoader::load __PACKAGE__, $VERSION;
}

my %export = (
	qwa => HINTK_QWA,
	qwh => HINTK_QWH,
);

sub import {
	my $class = shift;

	my @todo;
	for my $item (@_) {
		push @todo, $export{$item} || croak qq{"$item" is not exported by the $class module};
	}
	for my $item (@todo ? @todo : values %export) {
		$^H{$item} = 1;
	}
}

sub unimport {
	my $class = shift;
	my @todo;
	for my $item (@_) {
		push @todo, $export{$item} || croak qq{"$item" is not exported by the $class module};
	}
	for my $item (@todo ? @todo : values %export) {
		delete $^H{$item};
	}
}

'ok'

__END__