Class::Trait::Base(3pm) User Contributed Perl Documentation Class::Trait::Base(3pm)NAME
Class::Trait::Base - Base class for all Traits
SYNOPSIS
This class needs to be inherited by all traits so they can be identified as traits.
use Class::Trait 'base';
DESCRIPTION
Not much going on here, just an AUTOLOAD method to help properly dispatch calls to "SUPER::" and an "apply" method.
##############################################################################
apply
require TSomeTrait;
TSomeTrait->apply($object);
This method allows you to apply a trait to an object. It returns the trait so you can then reapply it:
TTricks->apply($dog_object)
->apply($cat_object);
This is merely syntactic sugar for the "Class::Trait::apply" method:
Class::Trait->apply($dog_object, 'TTricks');
Class::Trait->apply($cat_object, 'TTricks');
SEE ALSO
Class::Trait, Class::Trait::Config
MAINTAINER
Curtis "Ovid" Poe, "<ovid [at] cpan [dot] org>"
AUTHOR
Stevan Little <stevan@iinteractive.com>
COPYRIGHT AND LICENSE
Copyright 2004, 2005 by Infinity Interactive, Inc.
<http://www.iinteractive.com>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.10.0 2010-04-25 Class::Trait::Base(3pm)
Check Out this Related Man Page
MooseX::Traits(3pm) User Contributed Perl Documentation MooseX::Traits(3pm)NAME
MooseX::Traits - automatically apply roles at object creation time
VERSION
version 0.12
SYNOPSIS
Given some roles:
package Role;
use Moose::Role;
has foo => ( is => 'ro', isa => 'Int' required => 1 );
And a class:
package Class;
use Moose;
with 'MooseX::Traits';
Apply the roles to the class at "new" time:
my $class = Class->with_traits('Role')->new( foo => 42 );
Then use your customized class:
$class->isa('Class'); # true
$class->does('Role'); # true
$class->foo; # 42
DESCRIPTION
Often you want to create components that can be added to a class arbitrarily. This module makes it easy for the end user to use these
components. Instead of requiring the user to create a named class with the desired roles applied, or apply roles to the instance one-by-
one, he can just create a new class from yours with "with_traits", and then instantiate that.
There is also "new_with_traits", which exists for compatibility reasons. It accepts a "traits" parameter, creates a new class with those
traits, and then instantiates it.
Class->new_with_traits( traits => [qw/Foo Bar/], foo => 42, bar => 1 )
returns exactly the same object as
Class->with_traits(qw/Foo Bar/)->new( foo => 42, bar => 1 )
would. But you can also store the result of "with_traits", and call other methods:
my $c = Class->with_traits(qw/Foo Bar/);
$c->new( foo => 42 );
$c->whatever( foo => 1234 );
And so on.
METHODS
$class->with_traits( @traits )
Return a new class with the traits applied. Use like:
$class->new_with_traits(%args, traits => @traits)
"new_with_traits" can also take a hashref, e.g.:
my $instance = $class->new_with_traits({ traits => @traits, foo => 'bar' });
ATTRIBUTES YOUR CLASS GETS
This role will add the following attributes to the consuming class.
_trait_namespace
You can override the value of this attribute with "default" to automatically prepend a namespace to the supplied traits. (This can be
overridden by prefixing the trait name with "+".)
Example:
package Another::Trait;
use Moose::Role;
has 'bar' => (
is => 'ro',
isa => 'Str',
required => 1,
);
package Another::Class;
use Moose;
with 'MooseX::Traits';
has '+_trait_namespace' => ( default => 'Another' );
my $instance = Another::Class->new_with_traits(
traits => ['Trait'], # "Another::Trait", not "Trait"
bar => 'bar',
);
$instance->does('Trait') # false
$instance->does('Another::Trait') # true
my $instance2 = Another::Class->new_with_traits(
traits => ['+Trait'], # "Trait", not "Another::Trait"
);
$instance2->does('Trait') # true
$instance2->does('Another::Trait') # false
AUTHOR
Jonathan Rockway <jrockway@cpan.org>
COPYRIGHT AND LICENSE
This software is copyright (c) 2008 by Infinity Interactive, Inc. http://www.iinteractive.com.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
CONTRIBUTORS
o Chris Prather <chris@prather.org>
o Florian Ragwitz <rafl@debian.org>
o Hans Dieter Pearcey <hdp@weftsoar.net>
o Jesse Luehrs <doy@tozt.net>
o Karen Etheridge <ether@cpan.org>
o Matt S. Trout <mst@shadowcatsystems.co.uk>
o Rafael Kitover <rkitover@cpan.org>
o Shawn Moore <sartak@bestpractical.com>
o Stevan Little <stevan.little@iinteractive.com>
o Tomas Doran <bobtfish@bobtfish.net>
o Yuval Kogman <nothingmuch@woobling.org>
perl v5.18.2 2013-11-12 MooseX::Traits(3pm)