e.g. to combine MooseX::HasDefaults::IsRO, MooseX::StrictConstructor and MooseX::Aliases, you d do something like this (warning: untested) (now tested!):

package Mooseish;

use Moose ();
use Moose::Exporter;
use MooseX::StrictConstructor ();
use MooseX::Aliases ();

my %class_metaroles = (
    class => [ MooseX::StrictConstructor::Trait::Class ],
    attribute => [
         MooseX::Aliases::Meta::Trait::Attribute ,
         MooseX::HasDefaults::Meta::IsRO ,
    ],
);
my %role_metaroles = (
    role =>
        [ MooseX::Aliases::Meta::Trait::Role ],
    application_to_class =>
        [ MooseX::Aliases::Meta::Trait::Role::ApplicationToClass ],
    application_to_role =>
        [ MooseX::Aliases::Meta::Trait::Role::ApplicationToRole ],
);

if (Moose->VERSION >= 1.9900) {
    push @{$class_metaroles{class}},  MooseX::Aliases::Meta::Trait::Class ;
    push @{$role_metaroles{applied_attribute}},  MooseX::Aliases::Meta::Trait::Attribute ;
}
else {
    push @{$class_metaroles{constructor}},
         MooseX::StrictConstructor::Trait::Method::Constructor ,
         MooseX::Aliases::Meta::Trait::Constructor ;
}

*alias = &MooseX::Aliases::alias;

Moose::Exporter->setup_import_methods(
    also => [ Moose ],
    with_meta => [ alias ],
    class_metaroles => \%class_metaroles,
    role_metaroles => \%role_metaroles,
);

1;

可以通过这一类测试:

package MyObject;
use Mooseish;

sub foo { 1 }

has this => (
    isa =>  Str ,
    alias =>  that ,
);

1;

use strict;
use warnings;
use MyObject;
use Test::More;
use Test::Fatal;

like(
    exception { MyObject->new(does_not_exist => 1) },
    qr/unknown attribute.*does_not_exist/,
     strict constructor behaviour is present ,
);

can_ok( MyObject , qw(alias this that has with foo));

my $obj = MyObject->new(this =>  thing );
is($obj->that,  thing ,  can access attribute by its aliased name );

like(
    exception { $obj->this( new value ) },
    qr/Cannot assign a value to a read-only accessor/,
     attribute defaults to read-only ,
);

done_testing;

印刷:

ok 1 - strict constructor behaviour is present
ok 2 - MyObject->can(...)
ok 3 - can access attribute by its aliased name
ok 4 - attribute defaults to read-only
1..4

为此,我可以接手煤炭,但毫无疑问,谎言是:

package MyMoose;                                                                                                                                                               

use strict;
use warnings;
use Carp  confess ;

sub import {
    my $caller = caller;
    eval <<"END" or confess("Loading MyMoose failed: $@");
    package $caller;
    use Moose;
    use MooseX::StrictConstructor;
    use MooseX::FollowPBP;
    1;
END
}

1;

通过这样做,你将使用说明重新纳入一揽子呼吁。 换言之,你把他们使用的等级重新推给他们。

And here you declare your person:

package MyPerson;                                                                                                                                                              
use MyMoose;

has first_name => ( is =>  ro , required => 1 );
has last_name  => ( is =>  rw , required => 1 );

1;

测试!

use lib  lib ;                                                                                                                                                                 
use MyPerson;
use Test::Most;

throws_ok { MyPerson->new( first_name =>  Bob  ) }
qr/QAttribute (last_name) is required/,
   Required attributes should be required ;

throws_ok {
    MyPerson->new(
        first_name =>  Billy ,
        last_name  =>  Bob ,
        what       =>  ? ,
    );
}
qr/Qunknown attribute(s) init_arg passed to the constructor: what/,
   ... and unknown keys should throw an error ;

my $person;
lives_ok { $person = MyPerson->new( first_name =>  Billy , last_name =>  Bob  ) }
 Calling the constructor with valid arguments should succeed ;

isa_ok $person,  MyPerson ;
can_ok $person, qw/get_first_name get_last_name set_last_name/;
ok !$person->can("set_first_name"),
   ... but we should not be able to set the first name ;
done_testing;

And the test results:

ok 1 - Required attributes should be required
ok 2 - ... and unknown keys should throw an error
ok 3 - Calling the constructor with valid arguments should succeed
ok 4 - The object isa MyPerson
ok 5 - MyPerson->can(...)
ok 6 - ... but we should not be able to set the first name
1..6

让我们保持这种秘密吗?

直至摩西 您希望使用的是所有行为良好和使用

package MyMoose;

use strict;
use warnings;

use Moose::Exporter;
use MooseX::One ();
use MooseX::Two ();

Moose::Exporter->setup_import_methods(
    also => [ qw{ Moose MooseX::One MooseX::Two } ],
);

1;

举例来说,在网上查阅