File Coverage

blib/lib/Syntax/Infix/Smartmatch.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch	1	2	50.0
condition			n/a
subroutine	4	5	80.0
pod			n/a
total	17	21	80.9

package Syntax::Infix::Smartmatch;
$Syntax::Infix::Smartmatch::VERSION = '0.003';
use strict;
use warnings;

use XSLoader;

XSLoader::load(__PACKAGE__, __PACKAGE__->VERSION);

my $warning = $] >= 5.038 ? 'deprecated::smartmatch' : $] >= 5.018 ? 'experimental::smartmatch' : undef;

sub import {
	$^H |= 0x020000;
	$^H{"Syntax::Infix::Smartmatch/enabled"} = 1;
	warnings->unimport($warning) if defined $warning;
}

sub unimport {
	$^H |= 0x020000;
	delete $^H{"Syntax::Infix::Smartmatch/enabled"};
}

1;

# ABSTRACT: Smartmatch done right

__END__