File Coverage

blib/lib/ASP4/Mock/ClientSocket.pm

Criterion	Covered	Total	%
statement	9	10	90.0
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	1	3	33.3
total	14	19	73.6

package ASP4::Mock::ClientSocket;

use strict;
use warnings 'all';

sub new {
  return bless {
    on_close  => sub { },
  }, shift;
}

sub on_close { my $s = shift; $s->{on_close} = shift }
sub close { shift->{on_close}->( ) }

1;# return true:

=pod

=head1 NAME

ASP4::Mock::ClientSocket - Mimics APR::Socket object

=head1 SYNOPSIS

  my $socket = $r->connection->client_socket

=head1 DESCRIPTION

Mimics (minimally) the L object.

=head1 PUBLIC METHODS

=head2 close( )

Internal use only.

=cut