
Moose::Meta::Attribute::Native::Trait::Bool - Helper trait for Bool attributes

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 trait provides native delegation methods for boolean values. A boolean is a scalar which can be 1, 0, "", or undef.

If you don't provide an isa value for your attribute, it will default to Bool.

None of these methods accept arguments.
Sets the value to 1 and returns 1.
Set the value to 0 and returns 0.
Toggles the value. If it's true, set to false, and vice versa.
Returns the new value.
Equivalent of 'not $value'.

See "BUGS" in Moose for details on reporting bugs.

Jason May

Copyright 2007-2010 by Infinity Interactive, Inc.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.