mostly working definition roles

This commit is contained in:
Graham Knop 2010-03-02 00:49:09 -06:00
parent 12fcdf201f
commit a5f54a7910
4 changed files with 4 additions and 6 deletions

View file

@ -57,7 +57,7 @@ sub add_property {
my $prop_meta_roles = $self->property_metaroles;
my $prop_meta = $self->_property_metaclass;
for my $key ( keys %options ) {
if ( ! $prop_meta->meta->find_attribute_by_name($key) ) {
if ( ! $prop_meta->find_attribute_by_name($key) ) {
$form_options{$key} = delete $options{$key};
}
}