#!/usr/bin/perl

use strict;

package t2;

# ------------------------------------------------------------------------------
# Constants (Operationally, if not technically)
# ------------------------------------------------------------------------------

our	$RET_SUCCESS		= 0;
our	$RET_FAILURE		= (-1);
our	$RET_FATAL			= (-2);

my	$TRUE	= 1;
my	$FALSE	= 0;


# ------------------------------------------------------------------------------
# version() - Returns the version number of this module
# ------------------------------------------------------------------------------

sub version
{
	return sprintf "0.10a";
}


# ------------------------------------------------------------------------------
# Perl modules MUST return true
# ------------------------------------------------------------------------------

1;

__END__

##</code><code>##

#!/usr/bin/perl

use strict;

use t2;

print "our:  \$t2::RET_FAILURE = '$t2::RET_FAILURE'\n";
print " my:  \$t2::TRUE        = '$t2::TRUE'\n";

exit;

__END__