From ef80a79adc2f43a8b2bbffa60dcde35d4510ad1b Mon Sep 17 00:00:00 2001 From: doy Date: Mon, 20 Apr 2009 22:34:26 -0500 Subject: docs for MooseX::NonMoose::Meta::Role::Class --- lib/MooseX/NonMoose/Meta/Role/Class.pm | 48 ++++++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) (limited to 'lib/MooseX/NonMoose') 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 + +=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 time. See +L 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 + +=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; -- cgit v1.2.3-54-g00ecf