Really basic mocking of Apache::Connection

lib/Plack/App/FakeApache/Request.pm

@@ -11,6 +11,7 @@ use Plack::Request;
 use Plack::Response;
 use Plack::App::File;
 
+use Plack::App::FakeApache::Request::Connection;
 use Cwd qw(cwd);
 
 my $NS = "plack.app.fakeapache";
@@ -217,6 +218,15 @@ sub notes {
     return $old;
 }
 
+# this is strictly mocking Apache::Connection, and only partially
+sub connection {
+    my $self = shift;
+
+    return Plack::App::FakeApache::Request::Connection->new(
+        remote_ip => $self->plack_request->address,
+    );
+}
+
 sub read {
     my $self = shift;
     my ($buffer, $length, $offset) = @_; # ... but use $_[0] for buffer

lib/Plack/App/FakeApache/Request/Connection.pm

@@ -0,0 +1,21 @@
+package Plack::App::FakeApache::Request::Connection;
+
+use Moose;
+
+has remote_ip => (
+    is => 'rw',
+    isa => 'Str',
+);
+
+no Moose;
+__PACKAGE__->meta->make_immutable;
+
+1;
+
+=head1 NAME
+
+Plack::App::FakeApache::Request::Connection - mock Apache::Connection for Plack
+
+=head1 DESCRIPTION
+
+Only the C<remote_ip> method is implmented.