/usr/share/perl5/MooseX/HasDefaults/Meta/IsRW.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 | package MooseX::HasDefaults::Meta::IsRW;
use Moose::Role;
around _process_options => sub {
my $orig = shift;
my (undef, undef, $options) = @_;
if (!exists($options->{is})) {
$options->{is} = 'rw';
}
# They want no accessor, but Moose doesn't like "is => undef"
elsif (!defined($options->{is})) {
delete $options->{is};
}
$orig->(@_);
};
1;
|