42 |
} |
} |
43 |
map { |
map { |
44 |
my $attr = $self->class->meta->get_attribute($_); |
my $attr = $self->class->meta->get_attribute($_); |
45 |
$attr->is_required && $attr; |
blessed $attr && $attr->is_required && $attr; |
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; |