lib/locale.pm

   1 package locale;
   2
   3 our $VERSION = '1.00';
   4
   5 =head1 NAME
   6
   7 locale - Perl pragma to use and avoid POSIX locales for built-in operations
   8
   9 =head1 SYNOPSIS
  10
  11     @x = sort @y;       # ASCII sorting order
  12     {
  13         use locale;
  14         @x = sort @y;   # Locale-defined sorting order
  15     }
  16     @x = sort @y;       # ASCII sorting order again
  17
  18 =head1 DESCRIPTION
  19
  20 This pragma tells the compiler to enable (or disable) the use of POSIX
  21 locales for built-in operations (LC_CTYPE for regular expressions, and
  22 LC_COLLATE for string comparison).  Each "use locale" or "no locale"
  23 affects statements to the end of the enclosing BLOCK.
  24
  25 See L<perllocale> for more detailed information on how Perl supports
  26 locales.
  27
  28 =cut
  29
  30 $locale::hint_bits = 0x4;
  31
  32 sub import {
  33     $^H |= $locale::hint_bits;
  34 }
  35
  36 sub unimport {
  37     $^H &= ~$locale::hint_bits;
  38 }
  39
  40 1;