ext/IO/IO.pm

   1 #
   2
   3 package IO;
   4
   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
  27 =head1 NAME
  28
  29 IO - load various IO modules
  30
  31 =head1 SYNOPSIS
  32
  33     use IO;
  34
  35 =head1 DESCRIPTION
  36
  37 C<IO> provides a simple mechanism to load some of the IO modules at one go.
  38 Currently this includes:
  39
  40       IO::Handle
  41       IO::Seekable
  42       IO::File
  43       IO::Pipe
  44       IO::Socket
  45       IO::Dir
  46
  47 For more information on any of these modules, please see its respective
  48 documentation.
  49
  50 =cut
  51