1 package Reaction::InterfaceModel::Action;
3 use Reaction::Meta::InterfaceModel::Action::Class;
4 use metaclass 'Reaction::Meta::InterfaceModel::Action::Class';
6 use Reaction::Meta::Attribute;
11 has target_model => (is => 'ro', required => 1,
12 metaclass => 'Reaction::Meta::Attribute');
14 has ctx => (isa => 'Catalyst', is => 'ro', required => 1,
15 metaclass => 'Reaction::Meta::Attribute');
17 implements parameter_attributes => as {
18 shift->meta->parameter_attributes;
21 implements parameter_hashref => as {
24 foreach my $attr ($self->parameter_attributes) {
25 my $reader = $attr->get_read_method;
26 my $predicate = $attr->get_predicate_method;
27 next if defined($predicate) && !$self->$predicate;
28 $params{$attr->name} = $self->$reader;
33 implements can_apply => as {
35 foreach my $attr ($self->parameter_attributes) {
36 my $predicate = $attr->get_predicate_method;
37 if ($self->attribute_is_required($attr)) {
38 return 0 unless $self->$predicate;
40 if ($attr->has_valid_values) {
41 unless ($predicate && !($self->$predicate)) {
42 my $reader = $attr->get_read_method;
43 return 0 unless $attr->check_valid_value($self, $self->$reader);
50 implements error_for => as {
51 my ($self, $attr) = @_;
52 confess "No attribute passed to error_for" unless defined($attr);
54 my $meta = $self->meta->find_attribute_by_name($attr);
55 confess "Can't find attribute ${attr} on $self" unless $meta;
58 return $self->error_for_attribute($attr);
61 implements error_for_attribute => as {
62 my ($self, $attr) = @_;
63 my $reader = $attr->get_read_method;
64 my $predicate = $attr->get_predicate_method;
65 if ($self->attribute_is_required($attr)) {
66 unless ($self->$predicate) {
67 return $attr->name." is required";
70 if ($self->$predicate && $attr->has_valid_values) {
71 unless ($attr->check_valid_value($self, $self->$reader)) {
72 return "Not a valid value for ".$attr->name;
78 implements attribute_is_required => as {
79 my ($self, $attr) = @_;
80 return $attr->is_required;
91 Reaction::InterfaceModel::Action
101 =head2 parameter_attributes
105 L<Reaction::Meta::Attribute>
109 See L<Reaction::Class> for authors.
113 See L<Reaction::Class> for the license.