2 package Moose::AttributeHelpers::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::AttributeHelpers::MethodProvider::Bool
41 This is a role which provides the method generators for
42 L<Moose::AttributeHelpers::Bool>.
52 =head1 PROVIDED METHODS
68 All complex software has bugs lurking in it, and this module is no
69 exception. If you find a bug please either email me, or add the bug
74 Jason May E<lt>jason.a.may@gmail.comE<gt>
76 =head1 COPYRIGHT AND LICENSE
78 Copyright 2007-2009 by Infinity Interactive, Inc.
80 L<http://www.iinteractive.com>
82 This library is free software; you can redistribute it and/or modify
83 it under the same terms as Perl itself.