use Perl

• How about this? (Score:1)

  by spinclad (6747)

  class Car { # this is Perl 6 code
      my $cars-produced = 0;
      has $.cars-produced := $cars-produced;
  
      submethod BUILD() {
          ++$cars-produced;
      }
  }

  So you have a shared counter, an alias of it per instance (which seems redundant, but makes it work*... perhaps by some means one could persuade the compiler to compile it away, as it's constant as a reference), and accessors for inheriting.

  Rakudo doesn't like the 'has $.x := $y' construct (ye
  • Re:How about this? (Score:1)

    by masak (6289) on 2010.04.27 14:58 (#71927) Homepage Journal

    I was reminded by TimToady that something very much like this is already possible class Car { my $.cars-produced = 0; #`[...] }. It's spec'd and everything, in S12:731. Hope that helps. :)

    Reply to This

    Parent

    • Re: (Score:1)

      by spinclad (6747)

      Oh, yes, that's exactly the thing.

      I think has $.x := $y would have its uses, too; i'll poke around (in spec, code, #perl6) to see what might block/enable it.