—

              
# ============================================================================
package MooseX::App::Role;
# ============================================================================
use 5.010;
use utf8;
use Moose::Role ();
use Moose::Exporter;
Moose::Exporter->setup_import_methods(
    also      => 'Moose::Role',
);
sub init_meta {
    shift;
    my (%args) = @_;
     
    my $meta = Moose::Role->init_meta( %args );
     
    Moose::Util::MetaRole::apply_metaroles(
        for             => $meta,
        role_metaroles  => {
            applied_attribute=> ['MooseX::App::Meta::Role::Attribute'],
        },
    );
     
    return $meta;
}
1;
__END__
HideShow 33 lines of Pod
=pod
=head1 NAME
MooseX::App::Role - Use documentation attributes in a role
=head1 SYNOPSIS
 package MyApp::Role::SomeRole;
  
 use Moose::Role; # optional
 use MooseX::App::Role;
  
 has 'testattr' => (
    isa             => 'rw',
    command_tags    => [qw(Important! Nice))],
 );
=head1 DESCRIPTION
When loading this package in a role you can use the C<command_tags>
attribute to document an attribute. 
Alternatively you can also just use attribute traits:
 has 'testattr' => (
    isa             => 'rw',
    traits          => [qw(App::Tags)]
    command_tags    => [qw(Important! Nice))],
 );
=cut