Parent Directory | Revision Log | Patch
revision 1135 by dpavlin, Tue Jun 30 15:10:55 2009 UTC | revision 1136 by dpavlin, Tue Jun 30 19:22:43 2009 UTC | |
---|---|---|
# | Line 109 sub class_meta { | Line 109 sub class_meta { |
109 | } elsif( $class->meta->isa('Moose::Meta::Role') ) { | } elsif( $class->meta->isa('Moose::Meta::Role') ) { |
110 | $is_role = 1; | $is_role = 1; |
111 | $instance = Frey->new; | $instance = Frey->new; |
112 | warn "# apply $class on $instance"; | warn "# use meta from role $class"; |
113 | $class->meta->apply( $instance ); | $meta = ref $class ? ref($class)->meta : $class->meta; |
$meta = $instance->meta; | ||
114 | } else { | } else { |
115 | $meta = $class->meta; | $meta = $class->meta; |
116 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |