/usr/share/perl5/MooseX/MultiInitArg.pm is in libmoosex-multiinitarg-perl 0.02-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::MultiInitArg;
use strict;
use warnings;
our $VERSION = '0.02';
use MooseX::MultiInitArg::Attribute;
use MooseX::MultiInitArg::Trait;
1;
__END__
=pod
=head1 NAME
MooseX::MultiInitArg - Attributes with aliases for constructor arguments.
=head1 SYNOPSIS
package Thinger;
use Moose;
use MooseX::MultiInitArg;
has 'data' => (
metaclass => 'MultiInitArg',
# For composability, you could use the following:
# traits => ['MooseX::MultiInitArg::Trait'],
is => 'ro',
isa => 'Str',
init_args => [qw(munge frobnicate)],
);
package main;
# All these are equivalent
my $foo = Thinger->new(data => 'foo');
my $foo = Thinger->new(munge => 'foo');
my $foo = Thinger->new(frobnicate => 'foo');
=head1 DESCRIPTION
If you've ever wanted to be able to call an attribute any number of things
while you're passing arguments to your object constructor, Now You Can.
The primary motivator is that I have some attributes that were named
inconsistently, and I wanted to rename them without breaking backwards
compatibility with my existing API.
=head1 AUTHOR
Paul Driver, C<< <frodwith at cpan.org> >>
=head1 COPYRIGHT AND LICENSE
Copyright 2007-2013 by Paul Driver.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|