Select Code to Download

package Singleton;
my $singleton;
...
  my $class = shift;
  $singleton ||= bless {}, $class;
}

package SingletonBase;
my $singleton;
...
  my $class = shift;
  $singleton{ $class } ||= bless {}, $class;
}

# encapsulated class data
{
...
  return $self;
  
}