37 |
my ( $self ) = @_; |
my ( $self ) = @_; |
38 |
$self->load_class( $self->class ); |
$self->load_class( $self->class ); |
39 |
my @required = |
my @required = |
|
grep { defined $_ } |
|
|
map { |
|
|
eval { |
|
|
$_->can('name') && !defined( $self->params->{ $_->name } ) |
|
|
}; |
|
|
} |
|
40 |
grep { |
grep { |
41 |
my $required = eval { |
defined $_ && $_->can('name') && !defined( $self->params->{ $_->name } ) |
42 |
my $attr = $self->class->meta->get_attribute($_); |
} |
43 |
$attr->is_required; |
map { |
44 |
}; |
my $attr = $self->class->meta->get_attribute($_); |
45 |
warn "# attribute $_ error: $@" if $@; |
$attr->is_required && $attr; |
|
$required; |
|
46 |
} $self->class->meta->get_attribute_list; |
} $self->class->meta->get_attribute_list; |
47 |
|
|
48 |
warn "## required = ",dump( map { $_->name } @required ), " for ", $self->class if @required && $self->debug; |
warn "## required = ",dump( map { $_->name } @required ), " for ", $self->class if @required && $self->debug; |