Commit | Line | Data |
42065130 |
1 | die "Do not use MooseX::HasDefaults, use MooseX::HasDefaults::RO or MooseX::HasDefaults::RW"; |
2 | |
3 | "Screw you Perl, I want to return a true value just to spite you even though it's a load failure. Can we PLEASE get rid of the required module return value? Require modules to die instead, like I just did. SIGH!"; |
4 | |
5 | __END__ |
6 | |
7 | =head1 NAME |
8 | |
9 | MooseX::HasDefaults - default "is" to "ro" or "rw" for all attributes |
10 | |
11 | =head1 SYNOPSIS |
12 | |
13 | package Person; |
14 | use Moose; |
15 | use MooseX::HasDefaults::RO; |
16 | |
17 | has name => ( |
18 | isa => 'Str', |
19 | ); |
20 | |
21 | has age => ( |
22 | is => 'rw', |
23 | isa => 'Int', |
24 | documentation => "Changes most years", |
25 | ); |
26 | |
27 | =head1 DESCRIPTION |
28 | |
29 | |
30 | =cut |
31 | |