Commit | Line | Data |
253cd18c |
1 | package MooseX::IsDefaults::RW; |
2 | use Moose (); |
3 | use Moose::Exporter; |
4 | use Moose::Util::MetaRole; |
5 | |
6 | use MooseX::IsDefaults::Meta::IsRW; |
7 | |
8 | Moose::Exporter->setup_import_methods(also => 'Moose'); |
9 | |
10 | sub init_meta { |
11 | shift; |
12 | my %options = @_; |
13 | |
14 | Moose->init_meta(%options); |
15 | |
16 | Moose::Util::MetaRole::apply_metaclass_roles( |
17 | for_class => $options{for_class}, |
18 | attribute_metaclass_roles => ['MooseX::IsDefaults::Meta::IsRW'], |
19 | ); |
20 | |
21 | return $options{for_class}->meta; |
22 | } |
23 | |
24 | 1; |
25 | |