Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use lib 'lib';
use strict;
...
wait; # for our child

done_testing();
  2. or download this
    use strict;
use warnings;
...
#wait; # for our child, this is handled by fork_ok

#done_testing(); not needed
  3. or download this
    use strict;
use warnings;
...
$dbh_locked->disconnect;

done_testing();