Moose::Meta::Attribute::Native::Trait::Bool
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
This provides a simple boolean attribute, which supports most of the basic math operations.
These methods are implemented in Moose::Meta::Attribute::Native::MethodProvider::Bool. It is important to note that all those methods do in place modification of the value stored in the attribute.
Sets the value to 1.
1
Set the value to 0.
0
Toggles the value. If it's true, set to false, and vice versa.
Equivalent of 'not $value'.
$value
All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to cpan-RT.
Jason May
Copyright 2007-2009 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.
To install Moose, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Moose
CPAN shell
perl -MCPAN -e shell install Moose
For more information on module installation, please visit the detailed CPAN module installation guide.