new => sub { bless {}, 'IO::Socket::INET' },

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

{   package main;

    use Test::More tests => 2;
    use Test::Exception;
    use Test::MockModule;

    my ($obj, $mock) = mock_me(  # Keeping the $mock object.
        send => sub { $_[0]->{howdy} = 1 if $_[1] eq 'Howdy!' },
        recv => sub { $_[0]->{howdy} ? 'Welcome' : 'Hiya!'    },
    );

    is 'My::Module', ref $obj, 'Correct module';
    lives_ok { $obj->connect } 'Connection and handshake success';

    sub mock_me {
        my $mock = Test::MockModule->new('IO::Socket::INET');

        my %mock = (
            # Initializing the object.
            new  => sub { bless {}, 'IO::Socket::INET' },
            @_
        );

        $mock->mock($_ => $mock{$_}) for keys %mock;

        return My::Module->new, $mock  # Returning the $mock object.
    }
}

{   package My::Module;

    use Carp;
    use IO::Socket 1.18;

    sub new { my $class = shift; bless { }, $class }

    sub connect {
        my $s = shift;

        $s->{socket} = IO::Socket::INET->new(
            PeerAddr => '127.0.0.1',
            PeerPort => 8080,
            Proto    => 'tcp',
        ) or croak "Connection failed: $!";

        croak 'Invalid handshake' unless $s->{socket}->recv eq 'Hiya!';
        $s->{socket}->send('Howdy!');
        croak 'ACK barf' unless $s->{socket}->recv eq 'Welcome';

        1;
    }
}