package Module::DemoGroupExport; # doom@kzsu.stanford.edu # 26 Feb 2009 =head1 NAME Module::DemoGroupExport - repaces many "use" statements with one =head1 SYNOPSIS use Module::DemoGroupExport qw( carp croak Dumper mkpath dirname ); my $file = shift; my $loc = dirname( $file ); unless (-d $loc) { carp "Creating $loc..."; mkpath( $loc ) or croak "Could not create $loc: $!"; } =head1 DESCRIPTION Demonstration of a simple strategy for ganging together multiple use statments for many Exporter-based modules into one, so that you can replace many lines of commonly used "use" statements with a single one. Note: automatic exporting is now frowned upon -- better to explicitly state what you want. =head2 EXPORT None by default. =cut use 5.8.0; use strict; use warnings; use Carp qw( carp cluck croak confess shortmess longmess ); use Data::Dumper qw( Dumper ); use File::Path qw( mkpath ); use File::Basename qw( fileparse basename dirname ); use File::Copy qw( copy move ); use Cwd qw( cwd abs_path ); require Exporter; our @ISA = qw(Exporter); our %EXPORT_TAGS = ( 'all' => [ qw( carp cluck croak confess shortmess longmess Dumper mkpath fileparse basename dirname copy move cwd abs_path ) ] ); our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); our @EXPORT = qw( ); # exported into callers namespace by default. # (don't use this without a very good reason.) our $VERSION = '0.01'; 1; =head1 SEE ALSO o The cpan module L =head1 AUTHOR Joseph Brenner, Edoom@kzsu.stanford.eduE =head1 COPYRIGHT AND LICENSE Copyright (C) 2009 by Joseph Brenner This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.2 or, at your option, any later version of Perl 5 you may have available. =head1 BUGS None reported... yet. =cut