use Perl

• Neat - See also (Score:1)

  by Limbic Region (3985)

  An example of how this might be used in Perl6 [openfoundry.org]

  #!/usr/bin/pugs
  # Demo of the state() variable declaration.
  # This is also a neat way of doing OO without actually having OO available.
  #
  # Please remember to update t/examples/examples.t and rename
  # examples/output/cashiers if you rename/move this file.
  
  use v6;
  
  sub gen_cashier () {
      # This variable corresponds to a class variable.
      # It is shared across all "instances" of gen_cashier().
      state $cash_in_store = 0;
  
      #
  • Re:Neat - See also (Score:2)

    by rafael (2125)

    Thanks, I just adapted a version of that to be a regression test in bleadperl (change 28090 [perl.org])