lib/byte.pm

   1 package byte;
   2
   3 sub import {
   4     $^H |= 0x00000010;
   5 }
   6
   7 sub unimport {
   8     $^H &= ~0x00000010;
   9 }
  10
  11 sub AUTOLOAD {
  12     require "byte_heavy.pl";
  13     goto &$AUTOLOAD;
  14 }
  15
  16 sub length ($);
  17
  18 1;
  19 __END__
  20
  21 =head1 NAME
  22
  23 byte - Perl pragma to turn force treating strings as bytes not UNICODE
  24
  25 =head1 SYNOPSIS
  26
  27     use byte;
  28     no byte;
  29
  30 =head1 DESCRIPTION
  31
  32
  33 =cut