[gitmo/MooseX-AttributeHelpers.git] / lib / MooseX / AttributeHelpers / MethodProvider / Counter.pm


package MooseX::AttributeHelpers::MethodProvider::Counter;
use Moose::Role;

sub inc {
    my $attr = shift;
    return sub { $attr->set_value($_[0], $attr->get_value($_[0]) + 1) };
}

sub dec {
    my $attr = shift;
    return sub { $attr->set_value($_[0], $attr->get_value($_[0]) - 1) };        
}

1;

__END__

=pod

=cut
Commit	Line	Data
8e3fab6d	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