use Perl

• MX::AH (Score:1)

  by mattk (7945)

  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-
  • Re: (Score:1)

    by xsawyerx (8978)

    Actually that is pretty good. Thanks!
• in Rakudo/Perl6? (Score:1)

  by davegaramond (3597)

  Makes me thankful there's Rakudo/Perl6, in which none of this is necessary.
  • Re: (Score:1)

    by xsawyerx (8978)

    How would this be done in Perl6?
    • Re: (Score:1)

      by masak (6289)

      $ perl6 -e 'class A { has $.attr is rw }; my $a = A.new(:attr(42)); $a.attr++; say $a.attr'
43