package Moose::Meta::Method::Accessor::Native::Bool::unset; use strict; use warnings; our $VERSION = '1.25'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; use Moose::Role; with 'Moose::Meta::Method::Accessor::Native::Writer' => { -excludes => [ qw( _maximum_arguments _inline_optimized_set_new_value ) ] }; sub _maximum_arguments { 0 } sub _potential_value { 0 } sub _inline_optimized_set_new_value { my ( $self, $inv, $new, $slot_access ) = @_; return "$slot_access = 0"; } no Moose::Role; 1;