![]() |
![]()
| ![]() |
![]()
NAMEMouseX::AttributeHelpers::Bool SYNOPSISpackage Room; use Mouse; use MouseX::AttributeHelpers; has 'is_lit' => ( metaclass => 'Bool', is => 'rw', isa => 'Bool', default => 0, provides => { set => 'illuminate', unset => 'darken', toggle => 'flip_switch', not => 'is_dark', }, ); package main; 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); $room->is_dark; # same as !$room->is_lit DESCRIPTIONThis module provides a simple boolean attribute, which supports most of the basic math operations. PROVIDERSsetunsettogglenotMETHODSmethod_constructorshelper_typeAUTHORNAKAGAWA Masaki <masaki@cpan.org> LICENSEThis library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSOMouseX::AttributeHelpers, MouseX::AttributeHelpers::Base
|