1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
package MooseX::AlwaysCoerce;
use strict;
use warnings;
use namespace::autoclean;
use Moose ();
use MooseX::ClassAttribute ();
use Moose::Exporter;
use Moose::Util::MetaRole;
use Carp;
Moose::Exporter->setup_import_methods;
=head1 NAME
MooseX::AlwaysCoerce - Automatically enable coercions for Moose attributes
=head1 VERSION
Version 0.04
=cut
our $VERSION = '0.04';
=head1 SYNOPSIS
package MyClass;
use Moose;
use MooseX::AlwaysCoerce;
use MyTypeLib 'SomeType';
has foo => (is => 'rw', isa => SomeType); # coerce => 1 automatically added
# same, MooseX::ClassAttribute is automatically applied
class_has bar => (is => 'rw', isa => SomeType);
=head1 DESCRIPTION
Have you ever spent an hour or more trying to figure out "WTF, why did my
coercion not run?" only to find out that you forgot C<< coerce => 1 >> ?
Just load this module in your L<Moose> class and C<< coerce => 1 >> will be
enabled for every attribute and class attribute automatically.
Use C<< coerce => 0 >> to disable a coercion explicitly.
=cut
{
package MooseX::AlwaysCoerce::Role::Meta::Attribute;
use namespace::autoclean;
use Moose::Role;
has coerce => (is => 'rw', default => 1);
package MooseX::AlwaysCoerce::Role::Meta::Class;
use namespace::autoclean;
use Moose::Role;
around add_class_attribute => sub {
my $next = shift;
my $self = shift;
my ($what, %opts) = @_;
$opts{coerce} = 1 unless exists $opts{coerce};
$self->$next($what, %opts);
};
}
sub init_meta {
shift;
my %options = @_;
my $for_class = $options{for_class};
MooseX::ClassAttribute->import({ into => $for_class });
Moose::Util::MetaRole::apply_metaclass_roles(
for_class => $for_class,
attribute_metaclass_roles =>
['MooseX::AlwaysCoerce::Role::Meta::Attribute'],
metaclass_roles =>
['MooseX::AlwaysCoerce::Role::Meta::Class'],
);
return $for_class->meta;
}
=head1 AUTHOR
Rafael Kitover, C<< <rkitover at cpan.org> >>
=head1 CONTRIBUTORS
Schwern: Michael G. Schwern <mschwern@cpan.org>
=head1 BUGS
Please report any bugs or feature requests to C<bug-moosex-alwayscoerce at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=MooseX-AlwaysCoerce>. I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.
=head1 SUPPORT
You can find more information at:
=over 4
=item * RT: CPAN's request tracker
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=MooseX-AlwaysCoerce>
=item * AnnoCPAN: Annotated CPAN documentation
L<http://annocpan.org/dist/MooseX-AlwaysCoerce>
=item * CPAN Ratings
L<http://cpanratings.perl.org/d/MooseX-AlwaysCoerce>
=item * Search CPAN
L<http://search.cpan.org/dist/MooseX-AlwaysCoerce/>
=back
=head1 ACKNOWLEDGEMENTS
My own stupidity, for inspiring me to write this module.
Dave Rolsky, for telling me how to do it the L<Moose> way.
=head1 COPYRIGHT & LICENSE
Copyright (c) 2009 Rafael Kitover
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut
1; # End of MooseX::AlwaysCoerce
|