#!/usr/bin/env perl

use 5.012;
use warnings;
use myDebugger;

my $instance = myDebugger::GetInstance();
say ref($instance);

$instance->{foo} = 'Persistent'; # Ensure we get same instance

my $instance_ref2 = myDebugger::GetInstance();
say ref($instance_ref2);
say $instance_ref2->{foo};

##</code><code>##

package myDebugger;

use 5.012;
use warnings;

my $debugger;

sub GetInstance {
    return $debugger //= bless { foo => 'bar' }, 'OLEThingy';
}
1;

##</code><code>##

OLEThingy
OLEThingy
Persistent