File Coverage

blib/lib/MouseX/NativeTraits/MethodProvider/Bool.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	7	8	87.5
condition			n/a
subroutine	15	15	100.0
pod	4	4	100.0
total	56	58	96.5

package MouseX::NativeTraits::MethodProvider::Bool;
use Mouse;

extends qw(MouseX::NativeTraits::MethodProvider);

sub generate_set {
    my($self) = @_;
    my $writer = $self->writer;
    return sub {
        if(@_ != 1) {
            $self->argument_error('set', 1, 1, scalar @_);
        }
        $writer->( $_[0], 1 );
    };
}

sub generate_unset {
    my($self) = @_;
    my $writer = $self->writer;
    return sub {
        if(@_ != 1) {
            $self->argument_error('unset', 1, 1, scalar @_);
        }
        $writer->( $_[0], 0 );
    };
}

sub generate_toggle {
    my($self) = @_;
    my $reader     = $self->reader;
    my $writer     = $self->writer;

    return sub {
        if(@_ != 1) {
            $self->argument_error('toggle', 1, 1, scalar @_);
        }
        $writer->( $_[0], !$reader->( $_[0] ) );
    };
}

sub generate_not {
    my($self) = @_;
    my $reader = $self->reader;
    return sub {
        if(@_ != 1) {
            $self->argument_error('not', 1, 1, scalar @_);
        }
        !$reader->( $_[0] );
    };
}

no Mouse;
__PACKAGE__->meta->make_immutable();

__END__