MouseX::AttributeHelpers::Bool

    package 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

This module provides a simple boolean attribute, which supports most of the basic math operations.

NAKAGAWA Masaki <masaki@cpan.org>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

MouseX::AttributeHelpers, MouseX::AttributeHelpers::Base