moose::meta::attribute::native::trait::bool(3) [osx man page]
Moose::Meta::Attribute::Native::Trait::Bool(3) User Contributed Perl Documentation Moose::Meta::Attribute::Native::Trait::Bool(3) NAME
Moose::Meta::Attribute::Native::Trait::Bool - Helper trait for Bool attributes VERSION
version 2.0604 SYNOPSIS
package Room; use Moose; has 'is_lit' => ( traits => ['Bool'], is => 'rw', isa => 'Bool', default => 0, handles => { illuminate => 'set', darken => 'unset', flip_switch => 'toggle', is_dark => 'not', }, ); my $room = Room->new(); $room->illuminate; # same as $room->is_lit(1); $room->darken; # same as $room->is_lit(0); $room->flip_switch; # same as $room->is_lit(not $room->is_lit); return $room->is_dark; # same as !$room->is_lit DESCRIPTION
This trait provides native delegation methods for boolean values. A boolean is a scalar which can be 1, 0, "", or "undef". DEFAULT TYPE
If you don't provide an "isa" value for your attribute, it will default to "Bool". PROVIDED METHODS
None of these methods accept arguments. o set Sets the value to 1 and returns 1. o unset Set the value to 0 and returns 0. o toggle Toggles the value. If it's true, set to false, and vice versa. Returns the new value. o not Equivalent of 'not $value'. BUGS
See "BUGS" in Moose for details on reporting bugs. AUTHOR
Moose is maintained by the Moose Cabal, along with the help of many contributors. See "CABAL" in Moose and "CONTRIBUTORS" in Moose for details. COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Infinity Interactive, Inc.. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. perl v5.16.2 2012-09-19 Moose::Meta::Attribute::Native::Trait::Bool(3)
Check Out this Related Man Page
Moose::Meta::Attribute::Native(3) User Contributed Perl Documentation Moose::Meta::Attribute::Native(3) NAME
Moose::Meta::Attribute::Native - Delegate to native Perl types VERSION
version 2.1202 SYNOPSIS
package MyClass; use Moose; has 'mapping' => ( traits => ['Hash'], is => 'rw', isa => 'HashRef[Str]', default => sub { {} }, handles => { exists_in_mapping => 'exists', ids_in_mapping => 'keys', get_mapping => 'get', set_mapping => 'set', set_quantity => [ set => 'quantity' ], }, ); my $obj = MyClass->new; $obj->set_quantity(10); # quantity => 10 $obj->set_mapping('foo', 4); # foo => 4 $obj->set_mapping('bar', 5); # bar => 5 $obj->set_mapping('baz', 6); # baz => 6 # prints 5 print $obj->get_mapping('bar') if $obj->exists_in_mapping('bar'); # prints 'quantity, foo, bar, baz' print join ', ', $obj->ids_in_mapping; DESCRIPTION
Native delegations allow you to delegate to native Perl data structures as if they were objects. For example, in the "SYNOPSIS" you can see a hash reference being treated as if it has methods named "exists()", "keys()", "get()", and "set()". The delegation methods (mostly) map to Perl builtins and operators. The return values of these delegations should be the same as the corresponding Perl operation. Any deviations will be explicitly documented. API
Native delegations are enabled by passing certain options to "has" when creating an attribute. traits To enable this feature, pass the appropriate name in the "traits" array reference for the attribute. For example, to enable this feature for hash reference, we include 'Hash' in the list of traits. isa You will need to make sure that the attribute has an appropriate type. For example, to use this with a Hash you must specify that your attribute is some sort of "HashRef". handles This is just like any other delegation, but only a hash reference is allowed when defining native delegations. The keys are the methods to be created in the class which contains the attribute. The values are the methods provided by the associated trait. Currying works the same way as it does with any other delegation. See the docs for each native trait for details on what methods are available. TRAITS FOR NATIVE DELEGATIONS
Below are some simple examples of each native trait. More features are available than what is shown here; this is just a quick synopsis. Array (Moose::Meta::Attribute::Native::Trait::Array) has 'queue' => ( traits => ['Array'], is => 'ro', isa => 'ArrayRef[Str]', default => sub { [] }, handles => { add_item => 'push', next_item => 'shift', # ... } ); Bool (Moose::Meta::Attribute::Native::Trait::Bool) has 'is_lit' => ( traits => ['Bool'], is => 'ro', isa => 'Bool', default => 0, handles => { illuminate => 'set', darken => 'unset', flip_switch => 'toggle', is_dark => 'not', # ... } ); Code (Moose::Meta::Attribute::Native::Trait::Code) has 'callback' => ( traits => ['Code'], is => 'ro', isa => 'CodeRef', default => sub { sub {'called'} }, handles => { call => 'execute', # ... } ); Counter (Moose::Meta::Attribute::Native::Trait::Counter) has 'counter' => ( traits => ['Counter'], is => 'ro', isa => 'Num', default => 0, handles => { inc_counter => 'inc', dec_counter => 'dec', reset_counter => 'reset', # ... } ); Hash (Moose::Meta::Attribute::Native::Trait::Hash) has 'options' => ( traits => ['Hash'], is => 'ro', isa => 'HashRef[Str]', default => sub { {} }, handles => { set_option => 'set', get_option => 'get', has_option => 'exists', # ... } ); Number (Moose::Meta::Attribute::Native::Trait::Number) has 'integer' => ( traits => ['Number'], is => 'ro', isa => 'Int', default => 5, handles => { set => 'set', add => 'add', sub => 'sub', mul => 'mul', div => 'div', mod => 'mod', abs => 'abs', # ... } ); String (Moose::Meta::Attribute::Native::Trait::String) has 'text' => ( traits => ['String'], is => 'ro', isa => 'Str', default => q{}, handles => { add_text => 'append', replace_text => 'replace', # ... } ); COMPATIBILITY WITH MooseX::AttributeHelpers This feature used to be a separated CPAN distribution called MooseX::AttributeHelpers. When the feature was incorporated into the Moose core, some of the API details were changed. The underlying capabilities are the same, but some details of the API were changed. BUGS
See "BUGS" in Moose for details on reporting bugs. AUTHORS
o Stevan Little <stevan.little@iinteractive.com> o Dave Rolsky <autarch@urth.org> o Jesse Luehrs <doy@tozt.net> o Shawn M Moore <code@sartak.org> o XXXX XXX'XX (Yuval Kogman) <nothingmuch@woobling.org> o Karen Etheridge <ether@cpan.org> o Florian Ragwitz <rafl@debian.org> o Hans Dieter Pearcey <hdp@weftsoar.net> o Chris Prather <chris@prather.org> o Matt S Trout <mst@shadowcat.co.uk> COPYRIGHT AND LICENSE
This software is copyright (c) 2006 by Infinity Interactive, Inc.. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. perl v5.18.2 2014-01-19 Moose::Meta::Attribute::Native(3)