/usr/share/perl5/MooseX/HasDefaults.pm is in libmoosex-hasdefaults-perl 0.03-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | package MooseX::HasDefaults;
our $VERSION = '0.03';
die "Do not use MooseX::HasDefaults, use MooseX::HasDefaults::RO or MooseX::HasDefaults::RW";
"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!";
__END__
=head1 NAME
MooseX::HasDefaults - default "is" to "ro" or "rw" for all attributes
=head1 SYNOPSIS
package Person;
use Moose;
use MooseX::HasDefaults::RO;
has name => (
isa => 'Str',
);
has age => (
is => 'rw',
isa => 'Int',
documentation => "Changes most years",
);
=head1 DESCRIPTION
The module L<MooseX::HasDefaults::RO> defaults C<is> to C<ro>.
The module L<MooseX::HasDefaults::RW> defaults C<is> to C<rw>.
If you pass a specific value to any C<has>'s C<is>, that overrides the default. If you do not want an accessor, pass C<< is => undef >>.
=head1 AUTHOR
Shawn M Moore, C<sartak@gmail.com>
=head1 SEE ALSO
=over 4
=item L<MooseX::AttributeDefaults>
This requires its users to be MOP savvy, and is a bit too much typing for
the common case of defaulting C<is>.
=item L<MooseX::Attributes::Curried>
This solves a similar need by letting users create sugar functions. But
people like C<has>.
=back
=head1 COPYRIGHT AND LICENSE
Copyright 2009 Infinity Interactive
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut
|