File Coverage

blib/lib/Switch/Plain.pm

Criterion	Covered	Total	%
statement	22	26	84.6
branch	1	2	50.0
condition	0	3	0.0
subroutine	8	10	80.0
pod			n/a
total	31	41	75.6

package Switch::Plain;

use v5.14.0;
use warnings;

use Carp qw(croak);

use XSLoader;
BEGIN {
    our $VERSION = '0.0501';
    XSLoader::load;
}

my %export = (
    sswitch => FLAG_SSWITCH,
    nswitch => FLAG_NSWITCH,
);

sub _port {
    my $op = shift;

    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) {
        $op->(\$^H{+HINTK_FLAGS}, $item);
    }
}

sub import {
    _port sub { ${$_[0]} |= $_[1]; }, @_;
}

sub unimport {
    _port sub { ${$_[0]} &= ~$_[1]; }, @_;
}

'ok'
__END__