From 5cbf79a0b419352959fdecb34248f791aaa15a22 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 23 Jun 2012 19:35:49 -0500
Subject: rename to callback_at_level

---
 t/sugar.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 't')

diff --git a/t/sugar.t b/t/sugar.t
index 2dacc9f..f3fe440 100644
--- a/t/sugar.t
+++ b/t/sugar.t
@@ -32,7 +32,7 @@ sub any {
     return sub {
         my ($lval) = @_;
 
-        my $recurse = smartmatch::get_smartmatch_callback(1);
+        my $recurse = smartmatch::callback_at_level(1);
         return List::MoreUtils::any { $recurse->($lval, $_) } @rvals;
     }
 }
@@ -51,7 +51,7 @@ sub any {
         my $self = shift;
         my ($lval) = @_;
 
-        my $recurse = smartmatch::get_smartmatch_callback(1);
+        my $recurse = smartmatch::callback_at_level(1);
         return List::MoreUtils::all { $recurse->($lval, $_) }
                                     @{ $self->{rvals} };
     }
-- 
cgit v1.2.3-54-g00ecf