[p5sagit/p5-mst-13.2.git] / ext / IO / IO.pm

#

package IO;

use XSLoader ();
use Carp;

$VERSION = "1.20";
XSLoader::load 'IO', $VERSION;

sub import {
    shift;
    my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir);

    eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l)
	or croak $@;
}

1;

__END__

=head1 NAME

IO - load various IO modules

=head1 SYNOPSIS

    use IO;

=head1 DESCRIPTION

C<IO> provides a simple mechanism to load some of the IO modules at one go.
Currently this includes:

      IO::Handle
      IO::Seekable
      IO::File
      IO::Pipe
      IO::Socket
      IO::Dir

For more information on any of these modules, please see its respective
documentation.

=cut
Commit	Line	Data
8add82fc	1	#
	2
	3	package IO;
	4
9426adcd	5	use XSLoader ();
cf7fe8a2	6	use Carp;
cf7fe8a2	7
cf7fe8a2	8	$VERSION = "1.20";
9426adcd	9	XSLoader::load 'IO', $VERSION;
cf7fe8a2	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
84dc3c4d	23	=head1 NAME
	24
	25	IO - load various IO modules
	26
	27	=head1 SYNOPSIS
	28
	29	use IO;
	30
	31	=head1 DESCRIPTION
	32
7b8d334a	33	C<IO> provides a simple mechanism to load some of the IO modules at one go.
84dc3c4d	34	Currently this includes:
84dc3c4d	35
2a0cf753	36	IO::Handle
	37	IO::Seekable
	38	IO::File
	39	IO::Pipe
	40	IO::Socket
cf7fe8a2	41	IO::Dir
84dc3c4d	42
	43	For more information on any of these modules, please see its respective
	44	documentation.
	45
	46	=cut
2a0cf753	47