lib/MooseX/IsDefaults/RO.pm

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