Hi,

Sorry for my late replay.
I still have not found the root-cause.
I made an example where i replaced the OLE-interfaced debugger by the OLE-interface of the excel application (because I do not suppose someone has a PLS UDE debugger at home) and it is working fine - its completely bizzare to me. However, if i am doing the same with the debugger OLE Application i get the $debugger variable as undefined.

Please have a look

Here my example code:

TestMe.pl 
##########################################
#Perl file which shall use the "debugger"
##########################################
use strict;
use warnings;
use diagnostics;
use myDebugger;

my $_db = GetInstance();

print "Does not work\n" if (not defined $_db);
print "Is working fine\n";

[download]
myDebugger.pm 
##########################################
#Perl file myDebugger.pm
##########################################
package myDebugger;

use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Const "Microsoft Excel";
use Win32::OLE qw(in with);
use Win32::OLE::Variant;
use vars qw($VERSION $HEADER @ISA @EXPORT);
use Exporter;
$VERSION = q$Revision: 1.1 $;
$HEADER  = q$Header: Some CMS data...  $;

@ISA    = qw(Exporter);
@EXPORT = qw(
  GetInstance
  );    # export subs

my $debugger = undef;

sub GetInstance {
    if ( defined $debugger ) {
        return $debugger;
    }
    else {
        DebuggerInit();
        defined $debugger
          ? return $debugger
          : print " Init error!";
        return 0;
    }
}

sub DebuggerInit {

    # Instead of an Debugger, I use here the Excel-Application.
    # Both excel and the debugger application are interfaced by OLE
    # Thus I think its a good replacement as an example.
        # Also the way how the OLE Application is the same
        # as the originally used UDE PLS Debugger.

    $debugger = Win32::OLE->GetActiveObject('Excel.Application');
    unless ($debugger) {
        $debugger = new Win32::OLE( 'Excel.Application', \&main::QuitA
+pp );
    }

}

sub main::QuitApp {

    exit();
}

1;

[download]

In reply to Re^2: Singleton and unblessed refereces. by tobias_hofer
in thread Singleton and unblessed refereces. by tobias_hofer

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.