File Coverage

blib/lib/Syntax/Infix/EqualityInsensitive.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	21	21	100.0

package Syntax::Infix::EqualityInsensitive;

use 5.038;
use strict;
use warnings;

use Infix::Custom ();

our $VERSION = '0.01';

require XSLoader;
XSLoader::load('Syntax::Infix::EqualityInsensitive', $VERSION);

sub import {
    Infix::Custom->import(
        op       => 'eqi',
        build_op => _eqi_build_op_addr(),
        prec     => 'rel',
    );
    Infix::Custom->import(
        op       => 'nei',
        build_op => _nei_build_op_addr(),
        prec     => 'rel',
    );
}

sub unimport {
    Infix::Custom->unimport('eqi');
    Infix::Custom->unimport('nei');
}

1;

__END__