X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FMetaDescription.pm;h=3baa9e0180c6662fde39a9c334f9f573351e5760;hb=d253607a5105ff1624c0e6146184118bfc97f49a;hp=c848df4f3590d48235944677a4e0f95cf3753f12;hpb=17f25b49d8e015f6283c9f7f8b0bc579f06d79f8;p=gitmo%2FMooseX-MetaDescription.git diff --git a/lib/MooseX/MetaDescription.pm b/lib/MooseX/MetaDescription.pm index c848df4..3baa9e0 100644 --- a/lib/MooseX/MetaDescription.pm +++ b/lib/MooseX/MetaDescription.pm @@ -23,33 +23,42 @@ MooseX::MetaDescription - A framework for adding additional metadata to Moose cl package Foo; use metaclass 'MooseX::MetaDescription::Meta::Class'; use Moose; - + + # add class-level metadata __PACKAGE__->meta->description->{'Hello'} = 'World'; has 'bar' => ( metaclass => 'MooseX::MetaDescription::Meta::Attribute', is => 'ro', isa => 'Str', - default => sub { 'Foo::bar' }, + default => sub { Bar->new() }, + # add attribute level metadata description => { - baz => 'Foo::bar::baz', + node_type => 'element', } ); - ... + my $foo = Foo->new; $foo->meta->description; # { 'Hello' => 'World' } - $foo->meta->get_attribute('bar')->description; # { baz => 'Foo::bar::baz' } + + my $bar = $foo->meta->get_attribute('bar'); + + # access the desciption HASH directly + $bar->description; # { node_type => 'element' } + + # or access the instance of MooseX::MetaDescription::Description + $bar->metadescription; + + # access the original attribute metaobject from the metadesc too + $bar->metadescription->descriptor == $bar; =head1 DESCRIPTION -=head1 METHODS - -=over 4 - -=item B<> - -=back +MooseX::MetaDescription allows you to add arbitrary out of band +metadata to your Moose classes and attributes. This will allow +you to track out of band data along with attributes, which is +very useful for say serializing Moose classes in HTML or XML. =head1 BUGS