File Coverage

blib/lib/Data/PubSub/Shared.pm

Criterion	Covered	Total	%
statement	11	16	68.7
branch	1	2	50.0
condition			n/a
subroutine	4	6	66.6
pod			n/a
total	16	24	66.6

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

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 {
        my $class = shift;
        return unless $Data::PubSub::Shared::HAVE_KEYWORDS;
        _enable_keywords($pkg, @kws);
    };
    *{"${pkg}::unimport"} = sub {
        my $class = shift;
        delete $^H{"$pkg/$_"} for @kws;
    };
}

1;

__END__