package modules;

our $VERSION = '0.01';

sub import
{
	my $package = shift;

	my $context = scalar caller;

	eval "package $context; use $_" for @_;
}

# Preloaded methods go here.

1;
__END__

=head1 NAME

modules - loads several modules with single use-command

=head1 SYNOPSIS

  use modules qw(strict warnings 5.006 Data::Dumper);

		# and now we can use i.e. Data::Dumper

	print Dumper { one => 1, two => 2 };

=head1 DESCRIPTION

If you are bored by multiple 'use'-statement and asked why you cannot load
several modules with one single 'use'-command: You will love 'modules', because
thats what it does.

Ironically 'modules' is a module. The name was choosen, because the 'use modules'
construct sounds self-explanatory.

=head2 EXAMPLE

use modules qw(strict warnings 5.006 Data::Dumper);

becomes the short form for:

use 5.006;
use strict;
use warnings;
use Data::Dumper;

=head2 EXPORT

None by default.

=head1 AUTHOR

Murat Ünalan, E<lt>murat.uenalan@charite.deE<gt>

=head1 COPYRIGHT NOTICE

Copyright (c) 2002 Murat Ünalan. All rights reserved.

This program is free software; you can redistribute it and/or modify it

under the same terms as Perl itself.

=head1 SEE ALSO

L<perl>.

=cut