MouseX::AttributeHelpers::Bool - MouseX::AttributeHelpers::Bool documentation

MouseX-AttributeHelpers documentation Contained in the MouseX-AttributeHelpers distribution.

Index

Code Index:

NAME

Top

MouseX::AttributeHelpers::Bool

SYNOPSIS

Top

    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

DESCRIPTION

Top

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

PROVIDERS

Top

set

unset

toggle

not

METHODS

Top

method_constructors

helper_type

AUTHOR

Top

NAKAGAWA Masaki <masaki@cpan.org>

LICENSE

Top

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

SEE ALSO

Top

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

MouseX-AttributeHelpers documentation Contained in the MouseX-AttributeHelpers distribution. 
package MouseX::AttributeHelpers::Bool;
use Mouse;

extends 'MouseX::AttributeHelpers::Base';

has '+method_constructors' => (
    default => sub {
        return +{
            set => sub {
                my (undef, $name) = @_;
                return sub { $_[0]->{$name} = 1 };
            },
            unset => sub  {
                my (undef, $name) = @_;
                return sub { $_[0]->{$name} = 0 };
            },
            toggle => sub {
                my (undef, $name) = @_;
                return sub { $_[0]->{$name} = not $_[0]->{$name} };
            },
            not => sub {
                my (undef, $name) = @_;
                return sub { not $_[0]->{$name} };
            },
        };
    },
);

sub helper_type { 'Bool' }

no Mouse;
__PACKAGE__->meta->make_immutable(inline_constructor => 0);
__END__