File Coverage

blib/lib/MooseX/MultiInitArg.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

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