If Unicode keys are entered to a hash, a bit is turned on.
[p5sagit/p5-mst-13.2.git] / ext / IO / IO.pm
1 #
2
3 package IO;
4
5 use XSLoader ();
6 use Carp;
7
8 $VERSION = "1.20";
9 XSLoader::load 'IO', $VERSION;
10
11 sub import {
12     shift;
13     my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir);
14
15     eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l)
16         or croak $@;
17 }
18
19 1;
20
21 __END__
22
23 =head1 NAME
24
25 IO - load various IO modules
26
27 =head1 SYNOPSIS
28
29     use IO;
30
31 =head1 DESCRIPTION
32
33 C<IO> provides a simple mechanism to load some of the IO modules at one go.
34 Currently this includes:
35
36       IO::Handle
37       IO::Seekable
38       IO::File
39       IO::Pipe
40       IO::Socket
41       IO::Dir
42
43 For more information on any of these modules, please see its respective
44 documentation.
45
46 =cut
47