lib/Moose/Meta/Attribute/Native/MethodProvider/Counter.pm

   1
   2 package Moose::Meta::Attribute::Native::MethodProvider::Counter;
   3 use Moose::Role;
   4
   5 our $VERSION   = '1.14';
   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 {
  22         $writer->( $_[0],
  23             $reader->( $_[0] ) + ( defined( $_[1] ) ? $_[1] : 1 ) );
  24     };
  25 }
  26
  27 sub dec {
  28     my ( $attr, $reader, $writer ) = @_;
  29     return sub {
  30         $writer->( $_[0],
  31             $reader->( $_[0] ) - ( defined( $_[1] ) ? $_[1] : 1 ) );
  32     };
  33 }
  34
  35 1;
  36
  37 __END__
  38
  39 =pod
  40
  41 =head1 NAME
  42
  43 Moose::Meta::Attribute::Native::MethodProvider::Counter - role providing method generators for Counter trait
  44
  45 =head1 DESCRIPTION
  46
  47 This is a role which provides the method generators for
  48 L<Moose::Meta::Attribute::Native::Trait::Counter>.  Please check there for
  49 documentation on what methods are provided.
  50
  51 =head1 METHODS
  52
  53 =over 4
  54
  55 =item B<meta>
  56
  57 =back
  58
  59 =head1 BUGS
  60
  61 See L<Moose/BUGS> for details on reporting bugs.
  62
  63 =head1 AUTHOR
  64
  65 Stevan Little E<lt>stevan@iinteractive.comE<gt>
  66
  67 =head1 COPYRIGHT AND LICENSE
  68
  69 Copyright 2007-2009 by Infinity Interactive, Inc.
  70
  71 L<http://www.iinteractive.com>
  72
  73 This library is free software; you can redistribute it and/or modify
  74 it under the same terms as Perl itself.
  75
  76 =cut