File Coverage

blib/lib/Data/PubSub/Shared.pm

Criterion	Covered	Total	%
statement	12	13	92.3
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod			n/a
total	17	19	89.4

package Data::PubSub::Shared;
use strict;
use warnings;
our $VERSION = '0.03';

require XSLoader;
XSLoader::load('Data::PubSub::Shared', $VERSION);

sub _enable_keywords {
    my ($pkg, @kws) = @_;
    $^H{"$pkg/$_"} = 1 for @kws;
}

for my $variant (qw(Int Int32 Int16 Str)) {
    my $lc = lc $variant;
    my $pkg = "Data::PubSub::Shared::$variant";
    my @kws = map { "ps_${lc}_$_" } qw(publish poll lag);
    no strict 'refs';
    *{"${pkg}::import"} = sub {
        _enable_keywords($pkg, @kws);
    };
    *{"${pkg}::unimport"} = sub {
        delete $^H{"$pkg/$_"} for @kws;
    };
}

1;

__END__