Help for this page

Select Code to Download


  1. or download this
    sub foo {
# original foo.pl code here
return "all right";
}
foo() unless defined caller(); # call foo() unless require'd
  2. or download this
    # Test::More style used....
use Test::More tests => 1;
require "foo.pl";
is(foo(),"all right","Foo() executed normally")