t/lib/CatalystX/DynamicComponent/ModelToControllerReflector/Strategy/DispatchableMethod.pm

   1 package CatalystX::DynamicComponent::ModelToControllerReflector::Strategy::DispatchableMethod;
   2 use Moose;
   3 use MooseX::Types::Moose qw/HashRef/;
   4 use Moose::Autobox;
   5 use List::MoreUtils qw/uniq/;
   6 use namespace::autoclean;
   7
   8 with 'CatalystX::DynamicComponent::ModelToControllerReflector::Strategy';
   9
  10 sub get_reflected_method_list {;
  11     my ($self, $app, $model_name, $model) = @_;
  12     my $model_methods = $model->meta->get_method_map;
  13     grep { does_role($model_methods->{$_}, 'CatalystX::ControllerGeneratingModel::DispatchableMethod') } keys %$model_methods;
  14 }
  15
  16 __PACKAGE__->meta->make_immutable;
  17