4 use Test::More tests => 14;
7 use MooseX::Role::Parameterized::Parameters;
9 my $p = MooseX::Role::Parameterized::Parameters->new;
13 package MyRole::NoParameters;
14 use MooseX::Role::Parameterized;
17 my $parameters_metaclass = MyRole::NoParameters->meta->parameters_metaclass;
18 is($parameters_metaclass->get_all_attributes, 0, "no parameters");
21 package MyRole::LengthParameter;
22 use MooseX::Role::Parameterized;
30 $parameters_metaclass = MyRole::LengthParameter->meta->parameters_metaclass;
31 is($parameters_metaclass->get_all_attributes, 1, "exactly one parameter");
33 my $parameter = ($parameters_metaclass->get_all_attributes)[0];
34 isa_ok($parameter, 'MooseX::Role::Parameterized::Meta::Parameter');
35 is($parameter->name, 'length', "parameter name");
36 ok($parameter->is_required, "parameter is required");
39 MyRole::LengthParameter->meta->construct_parameters;
40 } qr/^Attribute \(length\) is required/;
42 $p = MyRole::LengthParameter->meta->construct_parameters(
46 is($p->length, 5, "correct length");
50 } qr/^Cannot assign a value to a read-only accessor/;
53 package MyRole::LengthParameter;
54 use MooseX::Role::Parameterized;
56 parameter ['first_name', 'last_name'] => (
62 $parameters_metaclass = MyRole::LengthParameter->meta->parameters_metaclass;
63 is($parameters_metaclass->get_all_attributes, 3, "three parameters");
65 for my $param_name ('first_name', 'last_name') {
66 my $param = $parameters_metaclass->get_attribute($param_name);
67 is($param->type_constraint, 'Str', "$param_name type constraint");
68 ok(!$param->is_required, "$param_name is optional");