{
    package Foobar::Pod::Simple::HTML;
    use base qw(Pod::Simple::HTML);
    use CGI::Util qw(escape);
    sub general_url_escape {
        my($self, $string) = @_;
        $string = escape($string);
        return $string;
    }
}