--- trunk/lib/Frey/Action.pm 2008/11/18 14:15:45 414 +++ trunk/lib/Frey/Action.pm 2008/11/19 00:39:23 430 @@ -37,12 +37,19 @@ my ( $self ) = @_; $self->load_class( $self->class ); my @required = - grep { - defined $_ && $_->can('name') && !defined( $self->params->{ $_->name } ) - } + grep { defined $_ } map { - my $attr = $self->class->meta->get_attribute($_); - $attr->is_required && $attr; + eval { + $_->can('name') && !defined( $self->params->{ $_->name } ) + }; + } + grep { + my $required = eval { + my $attr = $self->class->meta->get_attribute($_); + $attr->is_required; + }; + warn "# attribute $_ error: $@" if $@; + $required; } $self->class->meta->get_attribute_list; warn "## required = ",dump( map { $_->name } @required ), " for ", $self->class if @required && $self->debug;