Select Code to Download

use Test::More tests=>1;
use Games::QuizTaker;
...
my $OUT=$GQ->test;

like($OUT,qr/$expected/);

tstanley@perlmonk ~/modules/Games-QuizTaker $ make test
PERL_DL_NONLAZY=1 /usr/bin/perl5.8.8 "-MExtUtils::Command::MM" "-e" "t
+est_harness(0, 'blib/lib', 'blib/arch')" t/*.t
...
Files=5, Tests=15,  2 wallclock secs ( 0.46 cusr +  0.04 csys =  0.50 
+CPU)
Failed 1/5 test programs. 1/15 subtests failed.
make: *** [test_dynamic] Error 255

sub test{
    my $self=shift;
...
      $answer=Games::QuizTaker::IO::in; 
      chomp($answer);
      $answer=uc($answer);