#!/usr/bin/perl -w
use strict;
use diagnostics;

BEGIN {
    $DB::single = 1; # Allows us to single step through testing
    #  If you need to define functions from the module, do that with a
    # qw( ... ) after the quoted module name.
    use_ok( '$ModuleName' ) or die; 
}

diag( "Testing $ModuleName $ModuleName::VERSION" );

=pod

This is a stub test function, from which a person can build their
monolithic module, and then split the module into pieces if need be.

Put whatever code and data you are using to test this module as you
develop it below.

=cut

my $Pi = 4 * atan2( 1, 1 );
# And whatever other constant a person might need.