"Fossies" - the Fresh Open Source Software Archive

Member "install-tl-20200916/tlpkg/tlperl/lib/IO.pm" (7 Mar 2020, 1453 Bytes) of package /windows/misc/install-tl.zip:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    1 #
    2 
    3 package IO;
    4 
    5 use XSLoader ();
    6 use Carp;
    7 use strict;
    8 use warnings;
    9 
   10 our $VERSION = "1.40";
   11 XSLoader::load 'IO', $VERSION;
   12 
   13 sub import {
   14     shift;
   15 
   16     warnings::warnif('deprecated', qq{Parameterless "use IO" deprecated})
   17         if @_ == 0 ;
   18     
   19     my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir);
   20 
   21     local @INC = @INC;
   22     pop @INC if $INC[-1] eq '.';
   23     eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l)
   24     or croak $@;
   25 }
   26 
   27 1;
   28 
   29 __END__
   30 
   31 =head1 NAME
   32 
   33 IO - load various IO modules
   34 
   35 =head1 SYNOPSIS
   36 
   37    use IO qw(Handle File); # loads IO modules, here IO::Handle, IO::File
   38    use IO;                 # DEPRECATED
   39 
   40 =head1 DESCRIPTION
   41 
   42 C<IO> provides a simple mechanism to load several of the IO modules
   43 in one go.  The IO modules belonging to the core are:
   44 
   45       IO::Handle
   46       IO::Seekable
   47       IO::File
   48       IO::Pipe
   49       IO::Socket
   50       IO::Dir
   51       IO::Select
   52       IO::Poll
   53 
   54 Some other IO modules don't belong to the perl core but can be loaded
   55 as well if they have been installed from CPAN.  You can discover which
   56 ones exist by searching for "^IO::" on http://search.cpan.org.
   57 
   58 For more information on any of these modules, please see its respective
   59 documentation.
   60 
   61 =head1 DEPRECATED
   62 
   63     use IO;                # loads all the modules listed below
   64 
   65 The loaded modules are IO::Handle, IO::Seekable, IO::File, IO::Pipe,
   66 IO::Socket, IO::Dir.  You should instead explicitly import the IO
   67 modules you want.
   68 
   69 =cut
   70