1 package App::Rgit::Policy::Callback;
6 use base qw/App::Rgit::Policy/;
10 $class = ref $class || $class;
14 my $callback = delete $args{callback} or die 'Invalid callback';
16 my $self = $class->SUPER::new(%args);
18 $self->{callback} = $callback;
24 eval "sub $_ { \$_[0]->{$_} }" for qw/callback/;
30 $policy->callback->(@_);