/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/ |
H A D | IO.pm | 3 package IO; package 11 XSLoader::load 'IO', $VERSION; 16 warnings::warnif('deprecated', qq{Parameterless "use IO" deprecated}) 21 eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l) 31 IO - load various IO modules 35 use IO qw(Handle File); # loads IO modules, here IO::Handle, IO [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
H A D | IO.t | 24 require_ok( 'IO' ); 25 ok( @load, 'IO should call XSLoader::load()' ); 26 is( $load[0][0], 'IO', '... loading the IO library' ); 27 is( $load[0][1], $IO::VERSION, '... with the current .pm version' ); 30 my @default = map { "IO/$_.pm" } qw( Handle Seekable File Pipe Socket Dir ); 38 IO->import(); 45 IO->import(); 52 IO->import(); 53 like( $warn, qr/^Parameterless "use IO" deprecate [all...] |
H A D | io_taint.t | 24 use IO::File; 25 $x = new IO::File "> ./__taint__$$" || die("Cannot open ./__taint__$$\n"); 29 $x = new IO::File "< ./__taint__$$" || die("Cannot open ./__taint__$$\n"); 38 $x = new IO::File "< ./__taint__$$" || die("Cannot open ./__taint__$$\n");
|
H A D | io_utf8.t | 18 use_ok('IO::File'); 20 $io = IO::File->new; 26 $io = IO::File->new;
|
H A D | io_pipe.t | 19 $reason = 'IO extension unavailable'; 28 use IO::Pipe; 35 $pipe = new IO::Pipe->reader($perl, '-e', 'print "not ok 1\n"'); 44 $pipe = new IO::Pipe->writer($perl, '-pe', $cmd); 56 $pipe = new IO::Pipe; 71 $stdin = bless \*STDIN, "IO::Handle"; 80 $pipe = new IO::Pipe; 97 $stdout = bless \*STDOUT, "IO::Handle"; 107 $pipe = new IO::Pipe;
|
H A D | io_xs.t | 15 print "1..0 # Skip: IO extension not built\n"; 25 use IO::File; 26 use IO::Seekable; 30 $x = new_tmpfile IO::File or print "not ";
|
H A D | io_unix.t | 22 $reason = 'IO extension unavailable'; 25 require IO::Socket; 27 eval {IO::Socket::pack_sockaddr_un('/foo/bar') || 1} 54 use IO::Socket; 56 $listen = IO::Socket::UNIX->new(Local=>$PATH, Listen=>0) || die "$!"; 84 $sock = IO::Socket::UNIX->new(Peer => $PATH) or die "$!";
|
H A D | io_sock.t | 22 $reason = 'IO extension unavailable'; 41 use IO::Socket; 43 $listen = IO::Socket::INET->new(Listen => 2, 79 $sock = IO::Socket::INET->new(PeerPort => $port, 83 || IO::Socket::INET->new(PeerPort => $port, 104 $listen = IO::Socket::INET->new(Listen => '', Timeout => 15) or die "$!"; 121 $sock = IO::Socket::INET->new("localhost:$port") 122 || IO::Socket::INET->new("127.0.0.1:$port"); 144 $sock = IO::Socket::INET->new("127.0.0.1:$port"); 158 $sock = IO [all...] |
H A D | io_dup.t | 15 print "1..0 # Skip: IO extension not compiled\n"; 21 use IO::Handle; 22 use IO::File; 31 $dupout = IO::Handle->new->fdopen( \*STDOUT ,"w"); 32 $duperr = IO::Handle->new->fdopen( \*STDERR ,"w"); 34 $stdout = \*STDOUT; bless $stdout, "IO::File"; # "IO::Handle"; 35 $stderr = \*STDERR; bless $stderr, "IO::Handle";
|
H A D | io_poll.t | 20 use IO::Handle; 21 use IO::Poll qw(/POLL/); 23 my $poll = new IO::Poll; 26 my $dupout = IO::Handle->new_from_fd(fileno($stdout),"w");
|
H A D | io_multihomed.t | 22 $reason = 'IO extension unavailable'; 41 require IO::Socket::INET; 42 @ISA=qw(IO::Socket::INET); 85 use IO::Socket; 87 $listen = IO::Socket::INET->new(Listen => 2,
|
H A D | io_udp.t | 20 $reason = 'IO was not built'; 58 use IO::Socket qw(AF_INET SOCK_DGRAM INADDR_ANY); 60 $udpa = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost') 61 || IO::Socket::INET->new(Proto => 'udp', LocalAddr => '127.0.0.1') 66 $udpb = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost') 67 || IO::Socket::INET->new(Proto => 'udp', LocalAddr => '127.0.0.1')
|
H A D | io_sel.t | 15 use IO::Select 1.09; 17 my $sel = new IO::Select(\*STDIN); 44 $sel = new IO::Select; 76 @a = IO::Select::select(undef, $sel, undef, 1); 125 IO::Select::has_error(); 129 use warnings 'IO::Select' ; 130 IO::Select::has_error();
|
H A D | io_dir.t | 18 use IO::Dir qw(DIR_UNLINK); 32 $dot = new IO::Dir $DIR; 54 tie %dir, IO::Dir, $DIR; 67 tie %dirx, IO::Dir, $DIR, DIR_UNLINK;
|
H A D | io_tell.t | 27 use IO::File; 29 $tst = IO::File->new("$tell_file","r") || die("Can't open $tell_file");
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/lib/IO/ |
H A D | File.pm | 3 package IO::File; 7 IO::File - supply object methods for filehandles 11 use IO::File; 13 $fh = new IO::File; 19 $fh = new IO::File "> file"; 25 $fh = new IO::File "file", "r"; 31 $fh = new IO::File "file", O_WRONLY|O_APPEND; 45 C<IO::File> inherits from C<IO::Handle> and C<IO [all...] |
H A D | Pipe.pm | 0 # IO::Pipe.pm 7 package IO::Pipe; 11 use IO::Handle; 21 my $class = ref($type) || $type || "IO::Pipe"; 38 (IO::Pipe::End->new(), IO::Pipe::End->new()); 58 $save = IO::Handle->new_from_fd($io, $mode); 69 bless $io, "IO::Handle"; 79 croak "IO::Pipe: Cannot spawn-NOWAIT: $err" if not $pid or $pid < 0; 83 croak "IO [all...] |
H A D | Poll.pm | 2 # IO::Poll.pm 8 package IO::Poll; 11 use IO::Handle; 136 IO::Poll - Object interface to system poll call 140 use IO::Poll qw(POLLRDNORM POLLWRNORM POLLIN POLLHUP); 142 $poll = new IO::Poll; 153 C<IO::Poll> is a simple interface to the system level poll routine. 159 =item mask ( IO [, EVENT_MASK ] ) 161 If EVENT_MASK is given, then, if EVENT_MASK is non-zero, IO is added to the 163 any event specified in EVENT_MASK. If EVENT_MASK is zero then IO wil [all...] |
H A D | Seekable.pm | 3 package IO::Seekable; 7 IO::Seekable - supply seek based methods for I/O objects 11 use IO::Seekable; 12 package IO::Something; 13 @ISA = qw(IO::Seekable); 17 C<IO::Seekable> does not have a constructor of its own as it is intended to 18 be inherited by other C<IO::Handle> based objects. It provides methods 26 IO::File, or C<undef> if this is not possible (eg an unseekable stream such 39 supported C<IO::Seekable> methods, which are just front ends for the 46 Seek the IO [all...] |
H A D | Socket.pm | 0 # IO::Socket.pm 7 package IO::Socket; 11 use IO::Handle; 21 require IO::Socket::INET; 22 require IO::Socket::UNIX if ($^O ne 'epoc'); 24 @ISA = qw(IO::Handle); 33 Exporter::export_to_level('IO::Socket', 1, $pkg, 'sockatmark'); 63 croak 'IO::Socket: Cannot configure a generic socket' 66 croak "IO::Socket: Unsupported socket domain" 69 croak "IO [all...] |
H A D | Select.pm | 0 # IO::Select.pm 7 package IO::Select; 240 IO::Select - OO interface to the select system call 244 use IO::Select; 246 $s = IO::Select->new(); 253 @ready = IO::Select->new(@handles)->can_read(0); 257 The C<IO::Select> package implements an object approach to the system C<select> 258 function call. It allows the user to see what IO handles, see L<IO::Handle>, 278 Add the list of handles to the C<IO [all...] |
H A D | Handle.pm | 1 package IO::Handle; 5 IO::Handle - supply object methods for I/O handles 9 use IO::Handle; 11 $io = new IO::Handle; 17 $io = new IO::Handle; 23 use IO::Handle '_IOLBF'; 32 C<IO::Handle> is the base class for all other IO handle classes. It is 33 not intended that objects of C<IO::Handle> would be created directly, 34 but instead C<IO [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/lib/IO/Socket/ |
H A D | UNIX.pm | 0 # IO::Socket::UNIX.pm 7 package IO::Socket::UNIX; 11 use IO::Socket; 15 @ISA = qw(IO::Socket); 19 IO::Socket::UNIX->register_domain( AF_UNIX ); 72 IO::Socket::UNIX - Object interface for AF_UNIX domain sockets 76 use IO::Socket::UNIX; 80 C<IO::Socket::UNIX> provides an object interface to creating and using sockets 81 in the AF_UNIX domain. It is built upon the L<IO::Socket> interface and 82 inherits all the methods defined by L<IO [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | FileHandle.pm | 9 require IO::File; 10 @ISA = qw(IO::File); 39 import IO::Handle grep { !defined(&$_) } @EXPORT, @EXPORT_OK; 49 'IO::Handle' => 52 'IO::Seekable' => 54 'IO::File' => 91 my $r = new IO::Handle; 92 my $w = new IO::Handle; 98 bless *STDIN{IO}, "FileHandle" if ref *STDIN{IO} e [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/t/ |
H A D | time.t | 14 $INC{'IO/Socket.pm'} = 1; 15 $INC{'IO/Select.pm'} = 1; 16 $INC{'IO/Socket/INET.pm'} = 1; 23 # cannot use(), otherwise it will use IO::Socket and IO::Select 29 make_fail('IO::Socket::INET', 'new'); 35 ok( $sock->isa('IO::Socket::INET'), 'should be an IO::Socket::INET object' ); 41 ok( $sock->isa('IO::Socket::INET'), 'should be an IO [all...] |