| Reaction documentation | Contained in the Reaction distribution. |
Reaction::Meta::InterfaceModel::Action::Class
See Reaction::Class for authors.
See Reaction::Class for the license.
| Reaction documentation | Contained in the Reaction distribution. |
package Reaction::Meta::InterfaceModel::Action::Class; use Reaction::Class; use aliased 'Reaction::Meta::InterfaceModel::Action::ParameterAttribute'; use namespace::clean -except => [ qw(meta) ]; extends 'Reaction::Meta::Class'; around initialize => sub { my $super = shift; my $class = shift; my $pkg = shift; $super->($class, $pkg, attribute_metaclass => ParameterAttribute, @_); }; sub parameter_attributes { my $self = shift; return grep { $_->isa(ParameterAttribute) } $self->get_all_attributes; }; __PACKAGE__->meta->make_immutable(inline_constructor => 0); 1;