local-lib5/lib/perl5/MooseX/Role/Parameterized/Meta/Role/Parameterized.pm

   1 package MooseX::Role::Parameterized::Meta::Role::Parameterized;
   2 use Moose;
   3 extends 'Moose::Meta::Role';
   4
   5 our $VERSION = '0.10';
   6
   7 use MooseX::Role::Parameterized::Parameters;
   8
   9 has genitor => (
  10     is       => 'ro',
  11     isa      => 'MooseX::Role::Parameterized::Meta::Role::Parameterizable',
  12     required => 1,
  13 );
  14
  15 has parameters => (
  16     is  => 'rw',
  17     isa => 'MooseX::Role::Parameterized::Parameters',
  18 );
  19
  20 __PACKAGE__->meta->make_immutable;
  21 no Moose;
  22
  23 1;
  24
  25 __END__
  26
  27 =head1 NAME
  28
  29 MooseX::Role::Parameterized::Meta::Role::Parameterized - metaclass for parameterized roles
  30
  31 =head1 DESCRIPTION
  32
  33 This is the metaclass for parameterized roles; that is, parameterizable roles
  34 with their parameters bound. All this actually provides is a place to store the
  35 L<MooseX::Role::Parameterized::Parameters> object.
  36
  37 =head1 ATTRIBUTES
  38
  39 =head2 genitor
  40
  41 Returns the L<MooseX::Role::Parameterized::Meta::Role::Parameterizable>
  42 metaobject that generated this role.
  43
  44 =head2 parameters
  45
  46 Returns the L<MooseX::Role::Parameterized::Parameters> object that represents
  47 the specific parameter values for this parameterized role.
  48
  49 =cut
  50