Help for this page

Select Code to Download

Select or download this

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

    return $test;
}