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

use Perl Log In

Log In

[ Create a new account ]

xsawyerx (8978)

xsawyerx
  (email not shown publicly)

Journal of xsawyerx (8978)

Tuesday July 21, 2009
09:47 AM

Incrementing an attribute

[ #39328 ]

Isn't there anything better than this?

    $self->num( $self->num + 1 );

Anyone?

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-

  • Makes me thankful there's Rakudo/Perl6, in which none of this is necessary.