X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Flib%2FApp%2FRgit%2FPolicy%2FCallback.pm;h=56c6879c7ffcb1a70de615ea5292063b45bae4af;hb=80656eec9bd2400f8db71d0d10d7d0be54139667;hp=37c2764065a8240903e5ed85d6c0d14ed83126fe;hpb=dc668e3c302569ed2b5eb2ed893247308f22528a;p=perl%2Fmodules%2Frgit.git

diff --git a/t/lib/App/Rgit/Policy/Callback.pm b/t/lib/App/Rgit/Policy/Callback.pm
index 37c2764..56c6879 100644
--- a/t/lib/App/Rgit/Policy/Callback.pm
+++ b/t/lib/App/Rgit/Policy/Callback.pm
@@ -3,7 +3,7 @@ package App::Rgit::Policy::Callback;
 use strict;
 use warnings;
 
-use base qw/App::Rgit::Policy/;
+use base qw<App::Rgit::Policy>;
 
 sub new {
  my $class = shift;
@@ -21,10 +21,10 @@ sub new {
 }
 
 BEGIN {
- eval "sub $_ { \$_[0]->{$_} }" for qw/callback/;
+ eval "sub $_ { \$_[0]->{$_} }" for qw<callback>;
 }
 
-sub report {
+sub handle {
  my $policy = shift;
 
  $policy->callback->(@_);