package Bar;

sub new { ... }

sub foo {
  state $bar;
  $bar++;
  return $bar;
}