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 |