#! /usr/bin/perl
#
# moduletest.pm
package testdir::moduletest;

use Exporter(); # Why is Exporter white while other use
                # statements are colored

$VERSION = '0.00.01';
@ISA = qw(Exporter);
@EXPORT = qw(testsub);
@EXPORT_OK = qw($string);

sub testsub {
=head1 SUBROUTINE
    The testsub subroutine is just a test 
    function that determines that four variables
    are seen with the testsub function and returns
    a string created within the testsub function.

=cut
    print "In my testsub function\n";
    print "\$_[0]: \"$_[0]\"\n";
    print "\$_[1]: \"$_[1]\"\n";
    print "\$_[2]: \"$_[2]\"\n";
    print "\$_[3]: \"$_[3]\"\n";
    my $string = "My string\n";
    return("$string");
}

1;

__END__

=head1 NAME
    testdir::moduletest

=head1 SYNOPSIS
    Provides one called function, testsub

=head1 DESCRIPTION
    This is a test module with provides valued passed
    in, print statements that show the variables passed
    in, a string created and returned from with testsub

=head1 AUTHOR
    Sherman L. Willden

=head1 COPYRIGHT
    Copyright 2013, Sherman L. Willden. All Rights Reserved

    This program is free software. You may copy or
    redistribute it under the same terms as Perl itself.

=cut