MooseX::MultiInitArg - Attributes with aliases for constructor arguments.
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');
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.
Paul Driver, <frodwith at cpan.org>
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.