Select Code to Download

sub morf {

...
    $tester->($testval) ? $true_word : $false_word ;

}

sub se {
    my ($val) = @_;

    sub { $_[0] eq $val } ;
}

morf(se('M'), $driver->{gender}, 'Male', 'Female') ;