8 use Scalar::Util 'blessed';
10 our $VERSION = '0.04';
11 our $AUTHORITY = 'cpan:STEVAN';
18 if (!defined($_[0]) || $_[0] =~ /^(attribute|method|instance)_metaclass/) {
19 $metaclass = 'Class::MOP::Class';
23 #make sure the custom metaclass gets loaded
24 Class::MOP::load_class($metaclass);
25 ($metaclass->isa('Class::MOP::Class'))
26 || confess "The metaclass ($metaclass) must be derived from Class::MOP::Class";
29 #make sure the custom metaclasses get loaded
30 map{ Class::MOP::load_class($options{$_}) }
31 grep{ /^(attribute|method|instance)_metaclass/ } keys %options;
32 my $package = caller();
34 # create a meta object so we can install &meta
35 my $meta = $metaclass->initialize($package => %options);
36 $meta->add_method('meta' => sub {
37 # we must re-initialize so that it
38 # works as expected in subclasses,
39 # since metaclass instances are
40 # singletons, this is not really a
42 $metaclass->initialize((blessed($_[0]) || $_[0]) => %options)
54 metaclass - a pragma for installing and using Class::MOP metaclasses
60 # use Class::MOP::Class
63 # ... or use a custom metaclass
64 use metaclass 'MyMetaClass';
66 # ... or use a custom metaclass
67 # and custom attribute and method
69 use metaclass 'MyMetaClass' => (
70 'attribute_metaclass' => 'MyAttributeMetaClass',
71 'method_metaclass' => 'MyMethodMetaClass',
74 # ... or just specify custom attribute
75 # and method classes, and Class::MOP::Class
76 # is the assumed metaclass
78 'attribute_metaclass' => 'MyAttributeMetaClass',
79 'method_metaclass' => 'MyMethodMetaClass',
84 This is a pragma to make it easier to use a specific metaclass
85 and a set of custom attribute and method metaclasses. It also
86 installs a C<meta> method to your class as well.
90 Stevan Little E<lt>stevan@iinteractive.comE<gt>
92 =head1 COPYRIGHT AND LICENSE
94 Copyright 2006-2008 by Infinity Interactive, Inc.
96 L<http://www.iinteractive.com>
98 This library is free software; you can redistribute it and/or modify
99 it under the same terms as Perl itself.