Select Code to Download

sub cmp_ok {
    my($self, $got, $type, $expect, $name) = @_;
...
    }
    return $ok;
}

sub _regex_ok {
    my($self, $this, $regex, $cmp, $name) = @_;
...

    return $ok;
}