/usr/share/perl5/MouseX/NativeTraits/Bool.pm is in libmousex-nativetraits-perl 1.09-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 | package MouseX::NativeTraits::Bool;
use Mouse::Role;
with 'MouseX::NativeTraits';
sub method_provider_class {
return 'MouseX::NativeTraits::MethodProvider::Bool';
}
sub helper_type {
return 'Bool';
}
1;
__END__
=head1 NAME
MouseX::NativeTraits::Bool - Helper trait for Bool attributes
=head1 SYNOPSIS
package Room;
use Mouse;
has 'is_lit' => (
traits => ['Bool'],
is => 'rw',
isa => 'Bool',
default => 0,
handles => {
illuminate => 'set',
darken => 'unset',
flip_switch => 'toggle',
is_dark => 'not',
},
);
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);
return $room->is_dark; # same as !$room->is_lit
=head1 DESCRIPTION
This provides a simple boolean attribute, which supports most of the
basic math operations.
=head1 PROVIDED METHODS
These methods are implemented in
L<MouseX::NativeTraits::MethodProvider::Bool>. It is important to
note that all those methods do in place modification of the value stored in
the attribute.
=over 4
=item B<set>
Sets the value to true.
=item B<unset>
Set the value to false.
=item B<toggle>
Toggles the value. If it's true, set to false, and vice versa.
=item B<not>
Equivalent of 'not C<$value>'.
=back
=head1 METHODS
=over 4
=item B<meta>
=item B<method_provider_class>
=item B<helper_type>
=back
=head1 SEE ALSO
L<MouseX::NativeTraits>.
=cut
|