lib/unicode/distinct.pm

   1 package unicode::distinct;
   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