2 package Moose::Meta::Attribute::Native::MethodProvider::Bool;
6 $VERSION = eval $VERSION;
7 our $AUTHORITY = 'cpan:STEVAN';
10 my ( $attr, $reader, $writer ) = @_;
11 return sub { $writer->( $_[0], 1 ) };
15 my ( $attr, $reader, $writer ) = @_;
16 return sub { $writer->( $_[0], 0 ) };
20 my ( $attr, $reader, $writer ) = @_;
21 return sub { $writer->( $_[0], !$reader->( $_[0] ) ) };
25 my ( $attr, $reader, $writer ) = @_;
26 return sub { !$reader->( $_[0] ) };
37 Moose::Meta::Attribute::Native::MethodProvider::Bool
41 This is a role which provides the method generators for
42 L<Moose::Meta::Attribute::Native::Trait::Bool>. Please check there for
43 documentation on what methods are provided.
55 See L<Moose/BUGS> for details on reporting bugs.
59 Jason May E<lt>jason.a.may@gmail.comE<gt>
61 =head1 COPYRIGHT AND LICENSE
63 Copyright 2007-2009 by Infinity Interactive, Inc.
65 L<http://www.iinteractive.com>
67 This library is free software; you can redistribute it and/or modify
68 it under the same terms as Perl itself.