Select Code to Download

1..7
ok 1 - use Mysimple_mod;
...
&Mysimple_mod::bogus
ok 7 - \#7 bogus subroutine
# Looks like you failed 1 test of 7.

use strict;
use warnings;
...
print "\n$catval\n";
ok ( defined( $catval ) ,                     "#7 bogus subroutine");

#!/usr/bin/perl 

...
    }

1;