Commit | Line | Data |
8add82fc |
1 | # |
2 | |
3 | package IO; |
4 | |
cf7fe8a2 |
5 | require DynaLoader; |
6 | require Exporter; |
7 | use Carp; |
8 | |
9 | use vars qw(@ISA $VERSION @EXPORT); |
10 | |
11 | @ISA = qw(DynaLoader); |
12 | $VERSION = "1.20"; |
13 | bootstrap IO $VERSION; |
14 | |
15 | sub import { |
16 | shift; |
17 | my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir); |
18 | |
19 | eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l) |
20 | or croak $@; |
21 | } |
22 | |
23 | 1; |
24 | |
25 | __END__ |
26 | |
84dc3c4d |
27 | =head1 NAME |
28 | |
29 | IO - load various IO modules |
30 | |
31 | =head1 SYNOPSIS |
32 | |
33 | use IO; |
34 | |
35 | =head1 DESCRIPTION |
36 | |
7b8d334a |
37 | C<IO> provides a simple mechanism to load some of the IO modules at one go. |
84dc3c4d |
38 | Currently this includes: |
39 | |
2a0cf753 |
40 | IO::Handle |
41 | IO::Seekable |
42 | IO::File |
43 | IO::Pipe |
44 | IO::Socket |
cf7fe8a2 |
45 | IO::Dir |
84dc3c4d |
46 | |
47 | For more information on any of these modules, please see its respective |
48 | documentation. |
49 | |
50 | =cut |
2a0cf753 |
51 | |