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

---
 lib/smartmatch.pm | 4 ++--
 t/sugar.t         | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/smartmatch.pm b/lib/smartmatch.pm
index 8cbbc9e..26655b5 100644
--- a/lib/smartmatch.pm
+++ b/lib/smartmatch.pm
@@ -81,14 +81,14 @@ sub unimport {
 
 =head1 FUNCTIONS
 
-=head2 get_smartmatch_callback($level)
+=head2 callback_at_level($level)
 
 Returns a coderef which will call smartmatching on its two arguments, with the
 smartmatch implementation used at caller level C<$level>.
 
 =cut
 
-sub get_smartmatch_callback {
+sub callback_at_level {
     my ($level) = @_;
     $level++;
     my $hh = (caller($level))[10];
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