lib/MooseX/AttributeHelpers/MethodProvider/Counter.pm

   1
   2 package MooseX::AttributeHelpers::MethodProvider::Counter;
   3 use Moose::Role;
   4
   5 sub inc {
   6     my $attr = shift;
   7     return sub { $attr->set_value($_[0], $attr->get_value($_[0]) + 1) };
   8 }
   9
  10 sub dec {
  11     my $attr = shift;
  12     return sub { $attr->set_value($_[0], $attr->get_value($_[0]) - 1) };
  13 }
  14
  15 1;
  16
  17 __END__
  18
  19 =pod
  20
  21 =cut