conflict MooseX::StrictConstructor and MooseX::MultiInitArg

Migrated from rt.cpan.org #46668 (status was 'new')

Requestors:

Konstantin@Tokar.RU

From konstantin@tokar.ru on 2009-06-04 15:36:45:

Здравствуйте, Frodwith.

I found conflict MooseX::StrictConstructor and MooseX::MultiInitArg. MooseX:: StrictConstructor it is necessary that unknown argument IMOnum1 caused an exception, but its use leads to an error.

Sample:

#!perl -w
use strict;

package LRIT::Data;
use strict;

use Moose;
use Moose::Util::TypeConstraints;
use MooseX::MultiInitArg;
#use MooseX::StrictConstructor; - uncomment for error

subtype LRITImoNumType => as 'Str' => where { /^\d{7}$/o } =>
        message { "Неправильный формат IMO number: '$_'" };

sub dump {
        my $self = shift;

        foreach my $key ( sort keys %$self ) {
                print STDERR "'$key' => '$self->{$key}'\n";
        } ## end foreach my $key ( sort keys...

} ## end sub dump

package LRIT::Data::IMOnum_LRITID;
use strict;
use Moose;
use MooseX::MultiInitArg;

extends qw[ LRIT::Data ];

has 'imonum' => (
        metaclass => 'MultiInitArg',
        is        => 'rw',
        isa       => 'LRITImoNumType',
        required  => 1,
        init_args => [qw( IMOnum)],
);

package main;

my $parent = new LRIT::Data::IMOnum_LRITID(  IMOnum1 => '1001001',, IMOnum => '1001002', );
$parent->dump();

-- С уважением, Konstantin mailto:Konstantin@Tokar.RU

moose / MooseX-StrictConstructor

conflict MooseX::StrictConstructor and MooseX::MultiInitArg #2