adding some methods to role, other small cleanups

This commit is contained in:
Graham Knop 2009-12-07 12:16:07 -06:00
parent c7995b716e
commit bb2667206d
2 changed files with 14 additions and 5 deletions

View file

@ -130,9 +130,7 @@ regular attributes.
sub property {
my ($meta, $name, %options) = @_;
my %form_options;
my $prop_meta =
$meta->property_meta;
#'WebGUI::Definition::Meta::Property';
my $prop_meta = $meta->property_meta;
for my $key ( keys %options ) {
if ( ! $prop_meta->meta->find_attribute_by_name($key) ) {
$form_options{$key} = delete $options{$key};