fix transform in void context, Middleware::Runtime

[chaz/p5-HTTP-AnyUA] / t / lib / MockBackend.pm

diff --git a/t/lib/MockBackend.pm b/t/lib/MockBackend.pm
index c8b653544eff5292e329e39c85788aeaa1b47aca..36f13e08c3d9268557e55728fc5cfc044b46c7e4 100644 (file)
--- a/t/lib/MockBackend.pm
+++ b/t/lib/MockBackend.pm
@@ -4,6 +4,9 @@ package MockBackend;
 use warnings;
 use strict;
 
+use Scalar::Util qw(blessed);
+use namespace::clean;
+
 use parent 'HTTP::AnyUA::Backend';
 
 
@@ -28,6 +31,8 @@ Get the requests the backend has handled so far.
 
 sub requests { @{$_[0]->{requests} || []} }
 
+sub response_is_future { blessed($_[0]->{response}) && $_[0]->{response}->isa('Future') }
+
 sub request {
     my $self = shift;