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

#

package IO;

require DynaLoader;
require Exporter;
use Carp;

use vars qw(@ISA $VERSION @EXPORT);

@ISA = qw(DynaLoader);
$VERSION = "1.20";
bootstrap 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
cf7fe8a2	5	require DynaLoader;
	6	require Exporter;
	7	use Carp;
	8
	9	use vars qw(@ISA $VERSION @EXPORT);
	10
	11	@ISA = qw(DynaLoader);
	12	$VERSION = "1.20";
	13	bootstrap IO $VERSION;
	14
	15	sub import {
	16	shift;
	17	my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir);
	18
	19	eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l)
	20	or croak $@;
	21	}
	22
	23	1;
	24
	25	__END__
	26
84dc3c4d	27	=head1 NAME
	28
	29	IO - load various IO modules
	30
	31	=head1 SYNOPSIS
	32
	33	use IO;
	34
	35	=head1 DESCRIPTION
	36
7b8d334a	37	C<IO> provides a simple mechanism to load some of the IO modules at one go.
84dc3c4d	38	Currently this includes:
84dc3c4d	39
2a0cf753	40	IO::Handle
	41	IO::Seekable
	42	IO::File
	43	IO::Pipe
	44	IO::Socket
cf7fe8a2	45	IO::Dir
84dc3c4d	46
	47	For more information on any of these modules, please see its respective
	48	documentation.
	49
	50	=cut
2a0cf753	51