#!/bin/sh
# -*- perl -*-
# This code allows us to start perl from our path or an environment variable
# rather than hardcoding a path into the #! line.  It works from sh or csh.
(exit $?0) && eval 'exec ${QPERLQ-perl} -x $0 ${1+"$@"}'
if (! $?QPERLQ) setenv QPERLQ perl
exec $QPERLQ -x $0 $argv:q

#!/usr/local/bin/perl -w
#
# $Id: test_module,v 1.4 1996/02/08 23:12:49 ejb Exp $
# $Source: /home/ejb/source/perl/modules/RCS/test_module,v $
# $Author: ejb $
#

require 5.001;
use strict;

my $whoami = ($0 =~ m,([^/]*)$,) ? $1 : $0;
my $dirname = ($0 =~ m,(.*)/[^/]+$,) ? $1 : ".";
push(@INC, $dirname);

(@ARGV > 0) || die "Usage: $whoami module [ args ]\n";

my $package = shift(@ARGV);
$package =~ s/\.pm$//;
require "$package.pm";

# To set a breakpoint, use this line of code:
# $DB::single = 1 if defined(&DB::DB);
test $package @ARGV;