Web::Chain project:    Web/Pro/Util.pm

     package Web::Pro::Util;
#                                doom@kzsu.stanford.edu
#                                19 Oct 2004

=head1 NAME

Web::Pro::Util - Functions to do miscellanious common tasks, used by the 
            largely OO oriented Web::Chain project. 

=head1 SYNOPSIS

   use Pro::Util qw( module_path ); 
   $module_location = module_path();

=head1 DESCRIPTION

The Web::Chain project is primarily object-oriented.  
The few Web::Pro::* modules (such as this one) are 
places to put proceedural routines that don't seem 
to deserve the OOP treatment. 

=head2 EXPORT

None by default.

=head2 FUNCTIONS

=cut 

use 5.006;
use strict; 
use warnings;
use Carp;
use File::Basename qw( dirname );
use Web::Definitions qw( $DEBUG 
                         $DF_VERSION
                         );

require Exporter;
our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw(
                                    module_path
                                  ) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw(  );
our $VERSION = $DF_VERSION;

=over

=item B<module_path> - to determine the path to whatever module 
  calls the module_path routine. 

=cut 

sub module_path { 
   my $module_path = dirname( ( caller(0) )[1] );  
}  

1;
__END__


=back

=head1 SEE ALSO

L<Project Documentation|Web::Project>

=head1 AUTHOR

Joseph Brenner, E<lt>doom@kzsu.stanford.eduE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2004 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