diff options
author | doy <doy@tozt.net> | 2009-04-20 22:34:26 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-04-20 22:34:26 -0500 |
commit | ef80a79adc2f43a8b2bbffa60dcde35d4510ad1b (patch) | |
tree | 302ea3de723a278f90ef4a7db9eb0fe0882aadde | |
parent | 59e10e3d446a9efc0ce06afe812e3f1f14e5c174 (diff) | |
download | moosex-nonmoose-ef80a79adc2f43a8b2bbffa60dcde35d4510ad1b.tar.gz moosex-nonmoose-ef80a79adc2f43a8b2bbffa60dcde35d4510ad1b.zip |
docs for MooseX::NonMoose::Meta::Role::Class
-rw-r--r-- | lib/MooseX/NonMoose/Meta/Role/Class.pm | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/lib/MooseX/NonMoose/Meta/Role/Class.pm b/lib/MooseX/NonMoose/Meta/Role/Class.pm index 2bffa30..0ac46a0 100644 --- a/lib/MooseX/NonMoose/Meta/Role/Class.pm +++ b/lib/MooseX/NonMoose/Meta/Role/Class.pm @@ -1,6 +1,41 @@ package MooseX::NonMoose::Meta::Role::Class; use Moose::Role; +=head1 NAME + +MooseX::NonMoose::Meta::Role::Class - metaclass trait for L<MooseX::NonMoose> + +=head1 SYNOPSIS + + package Foo; + use Moose -traits => 'MooseX::NonMoose::Meta::Role::Class'; + + # or + + package My::Moose; + use Moose (); + use Moose::Exporter; + + Moose::Exporter->setup_import_methods; + sub init_meta { + shift; + my %options = @_; + Moose->init_meta(%options); + Moose::Util::MetaRole::apply_metaclass_roles( + for_class => $options{for_class}, + metaclass_roles => ['MooseX::NonMoose::Meta::Role::Class'], + ); + return Class::MOP::class_of($options{for_class}); + } + +=head1 DESCRIPTION + +This trait implements everything involved with extending non-Moose classes, +other than doing the actual inlining at C<make_immutable> time. See +L<MooseX::NonMoose> for more details. + +=cut + has has_nonmoose_constructor => ( is => 'rw', isa => 'Bool', @@ -94,4 +129,17 @@ around superclasses => sub { no Moose::Role; +=head1 AUTHOR + + Jesse Luehrs <doy at tozt dot net> + +=head1 COPYRIGHT AND LICENSE + +This software is copyright (c) 2009 by Jesse Luehrs. + +This is free software; you can redistribute it and/or modify it under +the same terms as perl itself. + +=cut + 1; |