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
|
package MooseX::StrictConstructor;
use strict;
use warnings;
our $VERSION = '0.06';
use Moose;
use MooseX::Object::StrictConstructor;
sub import
{
my $caller = caller();
return if $caller eq 'main';
Moose::init_meta( $caller,
'MooseX::Object::StrictConstructor',
'MooseX::StrictConstructor::Meta::Class',
);
Moose->import( { into => $caller } );
return;
}
1;
__END__
=pod
=head1 NAME
MooseX::StrictConstructor - Make your object constructors blow up on unknown attributes
=head1 SYNOPSIS
package My::Class;
use MooseX::StrictConstructor; # instead of use Moose
has 'size' => ...;
# then later ...
# this blows up because color is not a known attribute
My::Class->new( size => 5, color => 'blue' );
=head1 DESCRIPTION
Using this class to load Moose instead of just loading using Moose
itself makes your constructors "strict". If your constructor is called
with an attribute init argument that your class does not declare, then
it calls "Carp::confess()". This is a great way to catch small typos.
=head2 Subverting Strictness
You may find yourself wanting to accept a parameter to the constructor
that is not the name of an attribute.
In that case, you'll probably be writing a C<BUILD()> method to deal
with it. Your C<BUILD()> method will receive two parameters, the new
object, and a hash reference of parameters passed to the constructor.
If you delete keys from this hash reference, then they will not be
seen when this class does its checking.
sub BUILD {
my $self = shift;
my $params = shift;
if ( delete $params->{do_something} ) {
...
}
}
=head2 Caveats
Using this class replaces the default Moose meta class,
C<Moose::Meta::Class>, with its own,
C<MooseX::StrictConstructor::Meta::Class>. If you have your own meta
class, this distro will probably not work for you.
=head1 AUTHOR
Dave Rolsky, C<< <autarch@urth.org> >>
=head1 BUGS
Please report any bugs or feature requests to
C<bug-moosex-strictconstructor@rt.cpan.org>, or through the web
interface at L<http://rt.cpan.org>. I will be notified, and then
you'll automatically be notified of progress on your bug as I make
changes.
=head1 COPYRIGHT & LICENSE
Copyright 2007 Dave Rolsky, All Rights Reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|
