[p5sagit/p5-mst-13.2.git] / lib / unicode / distinct.pm

package unicode::distinct;

our $VERSION = '0.01';

$unicode::distinct::hint_bits = 0x01000000;

sub import {
    $^H |= $unicode::distinct::hint_bits;
}

sub unimport {
    $^H &= ~$unicode::distinct::hint_bits;
}

1;
__END__

=head1 NAME

unicode::distinct - Perl pragma to strictly distinguish UTF8 data and non-UTF data.

=head1 SYNOPSIS

    use unicode::distinct;
    no unicode::distinct;

=head1 DESCRIPTION

 *NOT YET*

=head1 SEE ALSO

L<perlunicode>, L<utf8>

=cut
Commit	Line	Data
53d8b1b8	1	package unicode::distinct;
1aa99e6b	2
	3	our $VERSION = '0.01';
	4
	5	$unicode::distinct::hint_bits = 0x01000000;
	6
	7	sub import {
	8	$^H \|= $unicode::distinct::hint_bits;
	9	}
	10
	11	sub unimport {
	12	$^H &= ~$unicode::distinct::hint_bits;
	13	}
	14
	15	1;
	16	__END__
	17
	18	=head1 NAME
	19
	20	unicode::distinct - Perl pragma to strictly distinguish UTF8 data and non-UTF data.
	21
	22	=head1 SYNOPSIS
	23
	24	use unicode::distinct;
	25	no unicode::distinct;
	26
	27	=head1 DESCRIPTION
	28
	29	NOT YET
	30
	31	=head1 SEE ALSO
	32
	33	L<perlunicode>, L<utf8>
	34
	35	=cut