1 package MooseX::MetaDescription::Meta::Class;
5 our $AUTHORITY = 'cpan:STEVAN';
7 extends 'Moose::Meta::Class';
8 with 'MooseX::MetaDescription::Meta::Trait';
10 has '+description' => (
13 my @supers = $self->linearized_isa;
16 foreach my $super (@supers) {
17 if ($super->meta->isa('MooseX::MetaDescription::Meta::Class')) {
18 %desc = (%{ $super->meta->description }, %desc)
33 MooseX::MetaDescription::Meta::Class - Custom class metaclass for meta-descriptions
37 Nothing worth saying yet actually, mostly internal usage only. See the
38 SYNPOSIS in L<MooseX::MetaDescription> for an example of usage.
42 All complex software has bugs lurking in it, and this module is no
43 exception. If you find a bug please either email me, or add the bug
48 Stevan Little E<lt>stevan.little@iinteractive.comE<gt>
50 =head1 COPYRIGHT AND LICENSE
52 Copyright 2008 Infinity Interactive, Inc.
54 L<http://www.iinteractive.com>
56 This library is free software; you can redistribute it and/or modify
57 it under the same terms as Perl itself.