Whitespace

[gitmo/MooseX-HasDefaults.git] / lib / MooseX / IsDefaults / RO.pm

package MooseX::IsDefaults::RO;
use Moose ();
use Moose::Exporter;
use Moose::Util::MetaRole;

use MooseX::IsDefaults::Meta::IsRO;

Moose::Exporter->setup_import_methods(also => 'Moose');

sub init_meta {
    shift;
    my %options = @_;

    Moose->init_meta(%options);

    Moose::Util::MetaRole::apply_metaclass_roles(
        for_class                 => $options{for_class},
        attribute_metaclass_roles => ['MooseX::IsDefaults::Meta::IsRO'],
    );

    return $options{for_class}->meta;
}

1;