sub ok {
    my( $self, $test, $name ) = @_;

    ...

    $test = $test ? 1 : 0;

    ...

    return $test;
}