package MooseX::MetaDescription::Meta::Class;
use Moose;
-use MooseX::MetaDescription::Description::Class;
-
our $VERSION = '0.01';
our $AUTHORITY = 'cpan:STEVAN';
extends 'Moose::Meta::Class';
-
-has 'description' => (
- is => 'ro',
- isa => 'HashRef',
- lazy => 1,
- default => sub { +{} },
-);
-
-has 'metadescription' => (
- is => 'ro',
- isa => 'MooseX::MetaDescription::Description',
- lazy => 1,
- default => sub {
- my $self = shift;
-
- # TODO: handle traits ...
-
- MooseX::MetaDescription::Description::Class->new(
- %{$self->description},
- class => $self,
- )
- },
-);
+ with 'MooseX::MetaDescription::Meta::Trait';
no Moose; 1;
=head1 NAME
-MooseX::MetaDescription::Meta::Class - A Moosey solution to this problem
-
-=head1 SYNOPSIS
-
- use MooseX::MetaDescription::Meta::Class;
+MooseX::MetaDescription::Meta::Class - Custom class metaclass for meta-descriptions
=head1 DESCRIPTION
-=head1 METHODS
-
-=over 4
-
-=item B<>
-
-=back
+Nothing worth saying yet actually, mostly internal usage only. See the
+SYNPOSIS in L<MooseX::MetaDescription> for an example of usage.
=head1 BUGS
-All complex software has bugs lurking in it, and this module is no
+All complex software has bugs lurking in it, and this module is no
exception. If you find a bug please either email me, or add the bug
to cpan-RT.