actually, this should be a part of smartmatch itself

1 files changed, 1 insertions, 19 deletions

diff --git a/t/sugar.t b/t/sugar.t
index b397b8f..48a14cf 100644
--- a/t/sugar.t
+++ b/t/sugar.t
@@ -25,27 +25,9 @@ sub any {
     return sub {
         my ($lval) = @_;
 
-        my $recurse = get_smartmatch_callback();
+        my $recurse = smartmatch::get_smartmatch_callback(1);
         return List::MoreUtils::any { $recurse->($lval, $_) } @rvals;
     }
 }
 
-sub get_smartmatch_callback {
-    my $hh = (caller(2))[10];
-    my $engine = $hh ? $hh->{'smartmatch/engine'} : undef;
-
-    my $recurse;
-    if ($engine) {
-        $recurse = eval <<"RECURSE";
-            use smartmatch '$engine';
-            sub { \$_[0] ~~ \$_[1] }
-RECURSE
-    }
-    else {
-        $recurse = sub { $_[0] ~~ $_[1] };
-    }
-
-    return $recurse;
-}
-
 done_testing;