Select Code to Download

use warnings;
use strict;
...
    ok( $func->(3) ==  9,  qq{invoke soft ref'd func $func( 9)} );
    ok( $func->(3) == 10,  qq{invoke soft ref'd func $func(10)} );
    }

C:\@Work\Perl\monks\gctaylor1>perl test_soft_refs_1.pl
ok 1 - use Mysimple_mod;
...
#     Failed test (test_soft_refs_1.pl at line 87)
1..7
# Looks like you failed 3 tests of 7.