home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _2622e68bbe422b6ca32cb6fc4e6dd351 < prev    next >
Text File  |  2000-03-15  |  716b  |  48 lines
  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.  
  48.