my $default;

sub new
{
  my $class = shift || __PACKAGE__;
  my $self = {};
  bless $self, $class;
  $default ||= $self;
}

sub global_instance
{
  $default ||= (shift || __PACKAGE__)->new();
}