X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FMetaDescription.pm;h=2695293a8a2b7fb64088db69e3c60044b1239afc;hb=56e78a9caff840fb68085ead8837a64c839740de;hp=b4e681d6ad31b4c8e2b5d4d37b8f2de052d2f7e5;hpb=48b1f986834ed4eab1cf338cc85faff345acf556;p=gitmo%2FMooseX-MetaDescription.git diff --git a/lib/MooseX/MetaDescription.pm b/lib/MooseX/MetaDescription.pm index b4e681d..2695293 100644 --- a/lib/MooseX/MetaDescription.pm +++ b/lib/MooseX/MetaDescription.pm @@ -1,7 +1,7 @@ package MooseX::MetaDescription; use Moose; -our $VERSION = '0.01'; +our $VERSION = '0.02'; our $AUTHORITY = 'cpan:STEVAN'; use MooseX::MetaDescription::Meta::Class; @@ -20,15 +20,55 @@ MooseX::MetaDescription - A framework for adding additional metadata to Moose cl =head1 SYNOPSIS - use MooseX::MetaDescription; + package Foo; + use metaclass 'MooseX::MetaDescription::Meta::Class' => ( + # add class-level metadata + description => { + 'Hello' => 'World' + } + ); + use Moose; + + has 'bar' => ( + metaclass => 'MooseX::MetaDescription::Meta::Attribute', + is => 'ro', + isa => 'Str', + default => sub { Bar->new() }, + # add attribute level metadata + description => { + node_type => 'element', + } + ); + + my $foo = Foo->new; + + $foo->meta->description; # { 'Hello' => 'World' } + + 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 +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. + +=head METHODS =over 4 -=item B<> +=item B + +The Moose metaclass. =back