use strict;
use warnings;
-use base qw/App::Rgit::Policy/;
+use base qw<App::Rgit::Policy>;
sub new {
my $class = shift;
}
BEGIN {
- eval "sub $_ { \$_[0]->{$_} }" for qw/callback/;
+ eval "sub $_ { \$_[0]->{$_} }" for qw<callback>;
}
-sub report {
+sub handle {
my $policy = shift;
$policy->callback->(@_);