| Apache/2.4.7 (Ubuntu) Linux sman1baleendah 3.13.0-24-generic #46-Ubuntu SMP Thu Apr 10 19:11:08 UTC 2014 x86_64 uid=33(www-data) gid=33(www-data) groups=33(www-data) safemode : OFF MySQL: ON | Perl: ON | cURL: OFF | WGet: ON > / usr / lib / perl / 5.18.2 / | server ip : 172.67.156.115 your ip : 172.69.7.46 H O M E |
| Filename | /usr/lib/perl/5.18.2/IO.pm |
| Size | 413 |
| Permission | rw-r--r-- |
| Owner | root : root |
| Create time | 27-Apr-2025 10:10 |
| Last modified | 21-Nov-2018 01:29 |
| Last accessed | 05-Jul-2025 20:27 |
| Actions | edit | rename | delete | download (gzip) |
| View | text | code | image |
#
package IO;
use XSLoader ();
use Carp;
use strict;
use warnings;
our $VERSION = "1.28";
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);
eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l)
or croak $@;
}
1;
__END__
package IO;
use XSLoader ();
use Carp;
use strict;
use warnings;
our $VERSION = "1.28";
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);
eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l)
or croak $@;
}
1;
__END__