MooseX::Traits::Pluggable3pm

Overview

See MooseX::Traits for usage information.

Use "new_with_traits" to construct an object with a list of traits and "apply_traits" to apply traits to an instance.

Adds support for class precedence search for traits and some extra attributes, described below.

Trait search

If the value of "_trait_namespace" in MooseX::Traits starts with a "+" the namespace will be considered relative to the "class_precedence_list" (ie. @ISA) of the original class.

Example:

  package Class1
  use Moose;
  package Class1::Trait::Foo;
  use Moose::Role;
  has 'bar' => (
      is       => 'ro',
      isa      => 'Str',
      required => 1,
  );
  package Class2;
  use parent 'Class1';
  with 'MooseX::Traits';
  has '+_trait_namespace' => (default => '+Trait');
  has '+_traits_behave_like_roles' => (default => 1);
  package Class2::Trait::Bar;
  use Moose::Role;
  has 'baz' => (
      is       => 'ro',
      isa      => 'Str',
      required => 1,
  );
  package main;
  my $instance = Class2->new_with_traits(
      traits => ['Foo', 'Bar'],
      bar => 'baz',
      baz => 'quux',
  );
  $instance->does('Class1::Trait::Foo'); # true
  $instance->does('Class2::Trait::Bar'); # true

Namespace arrays

You can search multiple namespaces for traits, for example:

  has '+_trait_namespace' => (
      default => sub { [qw/+Trait +Role ExtraNS::Trait/] }
  );

Will search in the "class_precedence_list" for "::Trait::TheTrait" and "::Role::TheTrait" and then for "ExtraNS::Trait::TheTrait".

Correct role behavior

By default, a method from a role will override a class method, this however is not the behavior one expects when applying a Moose role using the normal methods.

If you want the behavior to be consistent with Moose roles, then use this configuration attribute in your class:

  has '+_traits_behave_like_roles' => (default => 1);

This may or may not become the default in the future, for now you have to ask for it for backward compatibility reasons.

Extra attributes

Contributors

Tomas Doran, "<[email protected]>" Fitz Elliott, "<[email protected]>" Andreas Marienborg, "<[email protected]>" Alexander Hartmaier, "<[email protected]>"

Copyright & license

Copyright (c) 2014 by the aforementioned "AUTHOR" and "CONTRIBUTORS".

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.