Commit | Line | Data |
---|---|---|
5bc28da9 | 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 |