lib/Reaction/InterfaceModel/Action/Role/SimpleMethodCall.pm

   1 package Reaction::InterfaceModel::Action::Role::SimpleMethodCall;
   2
   3 use Reaction::Role;
   4
   5 requires '_target_model_method';
   6
   7 sub can_apply { 1; }
   8
   9 sub do_apply {
  10   my ($self) = @_;
  11   $self->target_model->${\$self->_target_model_method};
  12 }
  13
  14 1;