File Coverage

blib/lib/Keyword/Simple.pm

Criterion	Covered	Total	%
statement	23	29	79.3
branch	2	6	33.3
condition	1	4	25.0
subroutine	7	8	87.5
pod	2	2	100.0
total	35	49	71.4

package Keyword::Simple;

use v5.12.0;
use warnings;

use Carp qw(croak);

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

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 %keywords = %{$^H{+HINTK_KEYWORDS} // {}};
    $keywords{$kw} = $sub;
    $^H{+HINTK_KEYWORDS} = \%keywords;
}

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

    my %keywords = %{$^H{+HINTK_KEYWORDS} // {}};
    delete $keywords{$kw};
    $^H{+HINTK_KEYWORDS} = \%keywords;
}

'ok'

__END__