# print out all the males my $a = Var->new; male($a, sub {print $a->value, " is male\n"} ); # is judy male eval {male("judy", sub {Success->throw})}; print $@ ? "judy is male" : "judy is not male", "\n"; # is dean male eval {male("dean", sub {Success->throw})}; print $@ ? "dean is male" : "dean is not male", "\n";