2 package MooseX::AttributeHelpers::MethodProvider::Counter;
7 return sub { $attr->set_value($_[0], $attr->get_value($_[0]) + 1) };
12 return sub { $attr->set_value($_[0], $attr->get_value($_[0]) - 1) };
23 MooseX::AttributeHelpers::MethodProvider::Counter
27 This is a role which provides the method generators for
28 L<MooseX::AttributeHelpers::Counter>.
38 =head1 PROVIDED METHODS
50 All complex software has bugs lurking in it, and this module is no
51 exception. If you find a bug please either email me, or add the bug
56 Stevan Little E<lt>stevan@iinteractive.comE<gt>
58 =head1 COPYRIGHT AND LICENSE
60 Copyright 2007 by Infinity Interactive, Inc.
62 L<http://www.iinteractive.com>
64 This library is free software; you can redistribute it and/or modify
65 it under the same terms as Perl itself.