X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FMetaDescription%2FMeta%2FClass.pm;h=3778917838d53d5ad3723bfd191c8de748f26f28;hb=d253607a5105ff1624c0e6146184118bfc97f49a;hp=3e0395c75eea29baa32e6bfc07c3c2f008214b56;hpb=c13295c80061a10bc2612b024bfdb52687d3a3b0;p=gitmo%2FMooseX-MetaDescription.git diff --git a/lib/MooseX/MetaDescription/Meta/Class.pm b/lib/MooseX/MetaDescription/Meta/Class.pm index 3e0395c..3778917 100644 --- a/lib/MooseX/MetaDescription/Meta/Class.pm +++ b/lib/MooseX/MetaDescription/Meta/Class.pm @@ -1,35 +1,11 @@ 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; @@ -39,25 +15,16 @@ __END__ =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 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.