sub socket_class
{
    my $self = shift;
    (ref($self) || $self) . "::Socket";
}

##</code><code>##

package MyHttp;
sub socket_class { "LWP::Protocol::http::Socket" }