lib/MooseX/AttributeHelpers/MethodProvider/Counter.pm

   1
   2 package MooseX::AttributeHelpers::MethodProvider::Counter;
   3 use Moose::Role;
   4
   5 our $VERSION   = '0.13';
   6 $VERSION = eval $VERSION;
   7 our $AUTHORITY = 'cpan:STEVAN';
   8
   9 sub reset : method {
  10     my ($attr, $reader, $writer) = @_;
  11     return sub { $writer->($_[0], $attr->default($_[0])) };
  12 }
  13
  14 sub set : method {
  15     my ($attr, $reader, $writer, $value) = @_;
  16     return sub { $writer->($_[0], $_[1]) };
  17 }
  18
  19 sub inc {
  20     my ($attr, $reader, $writer) = @_;
  21     return sub { $writer->($_[0], $reader->($_[0]) + (defined($_[1]) ? $_[1] : 1) ) };
  22 }
  23
  24 sub dec {
  25     my ($attr, $reader, $writer) = @_;
  26     return sub { $writer->($_[0], $reader->($_[0]) - (defined($_[1]) ? $_[1] : 1) ) };
  27 }
  28
  29 1;
  30
  31 __END__
  32
  33 =pod
  34
  35 =head1 NAME
  36
  37 MooseX::AttributeHelpers::MethodProvider::Counter
  38
  39 =head1 DESCRIPTION
  40
  41 This is a role which provides the method generators for
  42 L<MooseX::AttributeHelpers::Counter>.
  43
  44 =head1 METHODS
  45
  46 =over 4
  47
  48 =item B<meta>
  49
  50 =back
  51
  52 =head1 PROVIDED METHODS
  53
  54 =over 4
  55
  56 =item B<set>
  57
  58 =item B<inc>
  59
  60 =item B<dec>
  61
  62 =item B<reset>
  63
  64 =back
  65
  66 =head1 BUGS
  67
  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
  70 to cpan-RT.
  71
  72 =head1 AUTHOR
  73
  74 Stevan Little E<lt>stevan@iinteractive.comE<gt>
  75
  76 =head1 COPYRIGHT AND LICENSE
  77
  78 Copyright 2007-2008 by Infinity Interactive, Inc.
  79
  80 L<http://www.iinteractive.com>
  81
  82 This library is free software; you can redistribute it and/or modify
  83 it under the same terms as Perl itself.
  84
  85 =cut