tags:

views:

51

answers:

1
+1  Q: 

Understanding name spaces in POE-Tk

+2  A: 

Where does $heap in &validate come from? You don't pass it as a parameter. Could $heap in &validate and $heap in &in_button_1_press not be the same thing? Have you tried printing the stringy form of $heap to see if the addresses are the same in the two functions?

Andrew Barnett  2009-07-20 19:38:03
Some missing code;use Tk;use POE qw( Loop::TkActiveState );From perldoc POE::Session;POE::Session's Calling Convention sub handle_event { my ($kernel, $heap, $parameter) = @_[KERNEL, HEAP, ARG0]; ...; }Or the use of C"$_[KERNEL]", C"$_[HEAP]" and C"$_[ARG0]" inline, as is done in most examples.What's going on here is rather basic. Perl passes parameters into subroutines or methods using the @_ array. "KERNEL", "HEAP", "ARG0" and others are constants exported by POE::Session (which is included for free when a program uses POE)."stringy form of $heap"?
jpolache  2009-07-20 19:54:32
Andrew Barnett  2009-07-20 20:27:32
Whoops. This doesn't look right (in validate): my $heap->{ih_mw} ...Try that without the 'my', and see if it works better.
Andrew Barnett  2009-07-20 20:38:07
Andrew, if you will post that as an answer, I will be glad to check and upvote it ;). Many thanks. - Jon
jpolache  2009-07-20 20:42:16
Oh, that was an answer. OK, got it, thanks again.
jpolache  2009-07-20 20:44:00
From perlsub (1): # Makes current @_ visible to called subroutine.
Inshallah  2009-07-20 20:48:24
Doh! I knew it was something like that. Thanks Inshalla.
Andrew Barnett  2009-07-21 00:10:48

related questions

Regex to replace Boolean with bool
How do I lock a file in Perl?
How do you use XML::Parser with Style => 'Objects'
Parsing XML Elements & Attributes with Perl
Regex to match all HTML tags except <p> and </p>
Best way to extract data from a FileMaker Pro database in a script?
What's the fastest way to determine a full URL from a relative URL (given a base URL).
Why can't I connect to my CAS server with Perl's AuthCAS?
Why can't I fetch wikipedia pages with LWP::Simple?
How do I perform a Perl substitution on a string while keeping the original?
How do I read in the contents of a directory in Perl?
How can Perl's system() print the command that it's running?
How can I test STDIN without blocking in Perl?
How do I tell if a variable has a numeric value in Perl?
Why doesn't my Perl map return anything?
How can I determine the type of a blessed reference in Perl?
Parsing attributes with regex in Perl
How do you retrieve selected text using Regex in C#?
Why does the Perl conditional operator not do what I expect?
Class::DBI-like library for php?
How do you create objects in Perl?
How do I remove duplicate items from an array in Perl?
Is The Perl Journal available online?
Can you force either a scalar or array ref to be an array in Perl?
What's the safest way to iterate through the keys of a Perl hash?