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

2
lib/WebGUI/Definition.pm
View file

@ -74,8 +74,6 @@ sub init_meta {
my $class = shift;
my %args = @_;
Moose->init_meta(%args);
Moose::Util::MetaRole::apply_base_class_roles(
for => $args{for_class},
roles => [ 'WebGUI::Definition::Role::Object' ],

2
lib/WebGUI/Definition/Asset.pm
View file

@ -77,8 +77,6 @@ sub init_meta {
my $class = shift;
my %args = @_;
WebGUI::Definition->init_meta(%args);
Moose::Util::MetaRole::apply_base_class_roles(
for => $args{for_class},
roles => [ 'WebGUI::Definition::Role::Asset' ],

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};
}
}