package myDebugger;

use 5.012;
use warnings;

my $debugger;

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