Exporter::Cluster - Extension for easy multiple module imports.

Exporter-Cluster documentation Contained in the Exporter-Cluster distribution.

Index

Code Index:

NAME

Top

Exporter::Cluster - Extension for easy multiple module imports.

SYNOPSIS

Top

In module ModuleName.pm:

 package ModuleName;
 require Exporter::Cluster;

 @ISA = qw( Exporter::Cluster );

 %EXPORT_CLUSTER = ( MODULE_1 => ARGS_1,
                     MODULE_2 => ARGS_2,
                     ...      => ...     );

In other files which to use ModuleName:

 use ModuleName;

All of the modules listed %EXPORT_CLUSTER will be available (after being augmented by the import argument list if any) to the module that uses ModuleName.

DESCRIPTION

Top

Exporter::Cluster is designed to allow the user to develop a binding package that allows multiple packages to be imported into the symbol table with single 'use' command. This module was created from the observation of the general trend of Perl packages growing in complexity as new technology is developed and Perl interfaces are designed to interact with this technology. This is not a general use module! It has been designed mainly for use by developers who are trying to implement a sane interface to their work, but still attempt to use good coding practices such as code seperation and modular design.

BUGS

Top

No known bugs at this time.

AUTHOR

Top

D. Hageman <dhageman@dracken.com>

SEE ALSO

Top

Exporter

COPYRIGHT AND LICENSE

Top

Copyright (c) 2002-2003 D. Hageman (Dracken Technologies). All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Exporter-Cluster documentation Contained in the Exporter-Cluster distribution. 
package Exporter::Cluster;
######################################################################
##                                                                  ##
##  Package:  Cluster.pm                                            ##
##  Author:   D. Hageman <dhageman@dracken.com>                     ##
##                                                                  ##
##  Description:                                                    ##
##                                                                  ##
##  Exporter::Cluster is a module designed to work with Exporter    ##
##  to bundle or 'cluster' the importing of several modules.        ##
##                                                                  ##
######################################################################

##==================================================================##
##  Libraries and Variables                                         ##
##==================================================================##

require 5.005;	## This will be the earliest version of Perl we will 
				## consider supporting with this module.

use warnings;

$Exporter::Cluster::VERSION = "0.31";

##==================================================================##
##  Function(s)                                                     ##
##==================================================================##

##----------------------------------------------##
##  import                                      ##
##----------------------------------------------##
##  Method that will be inherited by the module ##
##  that puts Exporter::Cluster in this ISA.    ##
##----------------------------------------------##
sub import
{
	my $self = shift;
	
	## We need to find out who is calling us so we can use that
	## as the destination of the symbol munging.
	my $caller = caller;
	
	## Loop through all of the elements of the EXPORT_CLUSTER hash.
	foreach( keys( %{ "$self\::EXPORT_CLUSTER" } ) )
	{
		## Grab the arguments to pass into the import function.  We
		## clean them up a bit so they can pass nicely into our
		## eval.
		my $arguments = join( ",", @{ ${ "$self\::EXPORT_CLUSTER" }{ $_ } } );
		
		## The magic happens here ... we require the package we are
		## wanting to 'use', change our calling space and import
		## the symbols into that calling space.
		eval "require $_; package $caller; $_->import( $arguments );";

		## If we have an error, go ahead and display it.
		die( @_ ) if ( @_ );
	}
	
	return;
}		

##==================================================================##
##  End of Code                                                     ##
##==================================================================##
1;

##==================================================================##
##  Plain Old Documentation (POD)                                   ##
##==================================================================##

__END__