oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mostly working definition roles

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Definition/Meta/Asset.pm
View file

@ -21,6 +21,8 @@ use WebGUI::Definition::Meta::Property;
use WebGUI::Definition::Meta::Property::Asset;
no warnings qw(uninitialized);
with 'WebGUI::Definition::Meta::Class';
our $VERSION = '0.0.1';
=head1 NAME
@ -50,7 +52,7 @@ for properties.
=cut
has '+property_metaroles' => (
has 'property_metaroles' => (
is => 'ro',
default => sub { [ 'WebGUI::Definition::Meta::Property', 'WebGUI::Definition::Meta::Property::Asset'] },
);

2
lib/WebGUI/Definition/Meta/Class.pm
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};
}
}