Stories
Slash Boxes
Comments
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.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • If you're using Moose, MooseX::AttributeHelpers [cpan.org] 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);
    $thing->inc_num;
    $thing-