1#!/usr/bin/perl 2 3use v5.14; 4use warnings; 5 6use Test::More; 7 8use IO::Socket::IP; 9 10package MySubclass { 11 use base qw( IO::Socket::IP ); 12} 13 14my $server = IO::Socket::IP->new( 15 Listen => 1, 16 LocalHost => "127.0.0.1", 17 LocalPort => 0, 18) or die "Cannot listen on PF_INET - $IO::Socket::errstr"; 19 20my $client = IO::Socket::IP->new( 21 PeerHost => $server->sockhost, 22 PeerPort => $server->sockport, 23) or die "Cannot connect on PF_INET - $IO::Socket::errstr"; 24 25my $accepted = $server->accept( 'MySubclass' ) 26 or die "Cannot accept - $!"; 27 28isa_ok( $accepted, 'MySubclass' ); 29 30done_testing; 31