package MooseX::MetaDescription::Meta::Class;
use Moose;
-our $VERSION = '0.01';
+our $VERSION = '0.02';
our $AUTHORITY = 'cpan:STEVAN';
extends 'Moose::Meta::Class';
with 'MooseX::MetaDescription::Meta::Trait';
+
+has '+description' => (
+ default => sub {
+ my $self = shift;
+ my @supers = $self->linearized_isa;
+ shift @supers;
+ my %desc;
+ foreach my $super (@supers) {
+ if ($super->meta->isa('MooseX::MetaDescription::Meta::Class')) {
+ %desc = (%{ $super->meta->description }, %desc)
+ }
+ }
+ \%desc;
+ },
+);
no Moose; 1;