File Coverage

blib/lib/Keyword/Simple.pm

Criterion	Covered	Total	%
statement	28	31	90.3
branch	2	6	33.3
condition			n/a
subroutine	9	10	90.0
pod	2	2	100.0
total	41	49	83.6

package Keyword::Simple;

use v5.12.0;
use warnings;

use Carp qw(croak);
use B::Hooks::EndOfScope;

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

# all shall burn
our @meta;

sub define {
	my ($kw, $sub) = @_;
	$kw =~ /^\p{XIDS}\p{XIDC}*\z/ or croak "'$kw' doesn't look like an identifier";
	ref($sub) eq 'CODE' or croak "'$sub' doesn't look like a coderef";

	my $n = @meta;
	push @meta, $sub;

	$^H{+HINTK_KEYWORDS} .= " $kw:$n";
	on_scope_end {
		delete $meta[$n];
	};
}

sub undefine {
	my ($kw) = @_;
	$kw =~ /^\p{XIDS}\p{XIDC}*\z/ or croak "'$kw' doesn't look like an identifier";

	$^H{+HINTK_KEYWORDS} .= " $kw:-";
}

'ok'

__END__