MooseX::CoercePerAttribute - Define Coercions per attribute!
use MooseX::CoercePerAttribute;
has foo => (isa => 'Str', is => 'ro', coerce => 1);
has bar => (
traits => [CoercePerAttribute],
isa => Bar,
is => 'ro',
coerce => [
Str => sub {
my ($value, $options);
...
},
Int => sub {
my ($value, $options);
...
},
],
);
use Moose::Util::Types;
has baz => (
traits => [CoercePerAttribute],
isa => Baz,
is => 'ro',
coerce => [
sub {
coerce $_[0], from Str, via {}
}]
);
MooseX::CoercePerAttribute is a simple Moose Trait to allow you to define inline coercions per attribute.
This module allows for coercions to be declared on a per attribute bases. Accepting either an array of Code refs of the coercion to be run or an HashRef of various arguments to create a coercion routine from.
This trait allows you to declare a type coercion inline for an attribute. The Role will create an __ANON__ sub TypeConstraint object of the TypeConstraint in the attributes isa parameter. The type coercion can be supplied in one of two methods. The coercion should be supplied to the Moose Attribute coerce parameter.
1. The recomended usage is to supply a arrayref list declaring the types to coerce from and a subref to be executed in pairs. coerce => [$Fromtype1 => sub {}, $Fromtype2 => sub {}]
2. Alternatively you can supply and arrayref of coercion coderefs. These should be in the same format as defined in Moose::Util::TypeConstraints and will be passed the __ANON__ subtype as its first argument. If you use this method then you will need to use Moose::Util::TypeConstraints in you module. coerce => [sub {coerce $_[0], from Str, via sub {} }]
NB: Moose handles its coercions as an array of possible coercions. This means that it will use the first coercion in the list that matches the criteria. In earlier versions of this module the coercions were supplied as a HASHREF. This behaviour is deprecated and will be removed in later versions as it creates an uncertainty over the order of usage.
Mike Francis [email protected]
Copyright 2013- Mike Francis
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
You can find documentation for this module with the perldoc command.
perldoc MooseX::CoercePerAttribute
You can also look for information at:
-
RT: CPAN's request tracker (report bugs here)
http://rt.cpan.org/NoAuth/Bugs.html?Dist=MooseX-CoercePerAttribute
-
Meta CPAN
-
Search CPAN