do not use Test::MockObject, Test::MockObject makes some trouble on c…

…pan testers

Makefile.PL

@@ -7,9 +7,8 @@ requires 'Exporter'                 => 5.58;
 requires 'HTTP::Request'            => 1.40;
 requires 'URI'                      => 1.36;
 
-build_requires 'Test::More';
-build_requires 'YAML';
-build_requires 'Test::MockObject';
+test_requires 'Test::More';
+test_requires 'YAML';
 auto_set_repository;
 use_test_base;
 auto_include;

t/01_simple.t

@@ -4,7 +4,7 @@ use Test::Base;
 use YAML;
 use HTTPx::Dispatcher::Declare;
 use HTTP::Request;
-use Test::MockObject;
+use t::MockAPREQ;
 
 plan tests => 2*blocks;
 
@@ -28,7 +28,7 @@ sub _apache_req {
     my $block = shift;
     my $method = $block->method || 'GET';
     (my $uri = $block->uri) =~ s/\?.+//;
-    Test::MockObject->new({})->set_always('uri' => $uri)->set_always( method => $method);
+    t::MockAPREQ->new(uri => $uri, method => $method);
 }
 
 sub _http_req {

t/03_templates.t

@@ -4,7 +4,7 @@ use Test::Base;
 use YAML;
 use HTTPx::Dispatcher::Declare;
 use HTTP::Request;
-use Test::MockObject;
+use t::MockAPREQ;
 
 plan tests => 2*blocks;
 
@@ -28,7 +28,7 @@ sub _apache_req {
     my $block = shift;
     my $method = $block->method || 'GET';
     (my $uri = $block->uri) =~ s/\?.+//;
-    Test::MockObject->new({})->set_always('uri' => $uri)->set_always( method => $method);
+    t::MockAPREQ->new(uri => $uri, method => $method);
 }
 
 sub _http_req {

t/MockAPREQ.pm

@@ -0,0 +1,9 @@
+package t::MockAPREQ; # mock object for Apache::Request
+use strict;
+use warnings;
+
+sub new { my $class = shift; bless {@_}, $class; }
+sub uri    { $_[0]->{uri} }
+sub method { $_[0]->{method} }
+
+1;