Select Code to Download

#!/usr/bin/perl -w
use warnings;
...
    say "Value OK ($val)";
    exit 0;
}

package NaServer;
# this is just a dummy version of NetApps NaServer !!
...
}

1;

#!/usr/bin/perl -w
use warnings;
...

## This does not work as expected, since the test stdout_is is never r
+eached.
## Exits in script_to_test.pl prevent this.

#!/usr/bin/perl -w
use warnings;
...

# This works fine, traping after having mocked the NaServer was the tr
+ick.
# Thanks to the monks!