Slash Boxes
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
More | Login | Reply
Loading... please wait.
  • by mattk (7945) on 2009.07.21 10:34 (#69562) Homepage Journal

    If you're using Moose, MooseX::AttributeHelpers [] has a Counter helper that will give you increment_num and decrement mutators:

    use MooseX::AttributeHelpers;

    has num => (
      metaclass => 'Counter',
      isa       => 'Num',
      is        => 'ro',
      provides  => {
        inc => 'inc_num',
        dec => 'dec_num',
        reset => 'reset_num',

    my $thing = Foo->new(num => 26);