lib/MooseX/HasDefaults/RW.pm

   1 package MooseX::HasDefaults::RW;
   2 use Moose ();
   3 use Moose::Exporter;
   4 use Moose::Util::MetaRole;
   5
   6 use MooseX::HasDefaults::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::HasDefaults::Meta::IsRW'],
  19     );
  20
  21     return $options{for_class}->meta;
  22 }
  23
  24 1;
  25