tobias_hofer has asked for the wisdom of the Perl Monks concerning the following question:
Hello Monks,
I have wrapped the access to a hardware-debugger in a perl module. I have not implemented it in OO-Style (to access stuff by the $self reference i.e.), so a call to GetInstance will return the package-local variable which is the handle to the Win32-OLE Debugger instance. But using the debugger by the variable outside the package breaks and the varialble turns out to be a unblessed reference. Why?
When I am using the debugger by the variable inside the package its working fine.
UPDATE: once $debugger is initialized it is a blessed reference to the OLE Object
Here the code snippets
Any help and advice is highly welcome!
Best regards!
Tobias
I have wrapped the access to a hardware-debugger in a perl module. I have not implemented it in OO-Style (to access stuff by the $self reference i.e.), so a call to GetInstance will return the package-local variable which is the handle to the Win32-OLE Debugger instance. But using the debugger by the variable outside the package breaks and the varialble turns out to be a unblessed reference. Why?
When I am using the debugger by the variable inside the package its working fine.
UPDATE: once $debugger is initialized it is a blessed reference to the OLE Object
Here the code snippets
package myDebugger; use strict; use warning; use Win32; use Win32::OLE; use Win32::OLE qw( in with ); use Win32::OLE::Const 'UDE'; ... my $debugger; sub GetInstance { if ( defined $debugger) { return $debugger; } else { #Initialize Debugger and set $debugger DebuggerInit(); (defined $debugger) ? return $debugger : print "Can't initialize debugger, please check!" ); return 0; } }
Any help and advice is highly welcome!
Best regards!
Tobias
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Singleton and unblessed refereces.
by rjt (Curate) on Jul 08, 2013 at 12:16 UTC | |
Re: Singleton and unblessed refereces.
by kcott (Archbishop) on Jul 09, 2013 at 07:29 UTC | |
by tobias_hofer (Friar) on Jul 10, 2013 at 07:34 UTC | |
by Corion (Patriarch) on Jul 10, 2013 at 07:50 UTC |
Back to
Seekers of Perl Wisdom