On Thu, May 03, 2001 at 01:19:45AM -0500, will trillich wrote:
> On Thu, May 03, 2001 at 12:29:53AM -0500, will trillich wrote:
> > long version--
> >
> > I have a subroutine that IS DEFINED, but it's not showing up as
> > defined. I used the *Symbol::Table::name{CODE} method myself and
> > sure enough, there's no CODE for the defined subroutine...
>
> [snip]
>
> > ANY wild-ass guesses would be appreciated. (Do i win a prize for
> > the most difficulty with a simple situation? Or at least an
> > honorable mention for most belligerent refusal to move on and get
> > a life?)
> >
> > ###########################################
> >
> > short version--
> >
> > WTF?
>
> how can a defined subroutine NOT have any code in the symbol
> table? grr! this is quite a puzzle...
okay, here was the problem.
package My::Debacle;
sub search {
# ....
{
use CGI qw/:standard/;
my $form = join '',
map {
hidden(
-name => $_,
-value => $arg->{$_},
) . "\n"
}
grep(
$arg->{$_} and ($_ ne 'd') and ($_ ne 'go')
, keys %$arg
)
;
# ....
}
# ....
}
sub this { # ...
}
sub that { # ...
}
sub something_else { # ...
}
sub whatever_the_hell { # ...
}
sub handler { # ...
}
can you spot the problem?
with that, poof! $My::Debacle::handler{CODE} doesn't exist.
WHY?
--
[EMAIL PROTECTED]
http://sourceforge.net/projects/newbiedoc -- we need your brain!
http://www.dontUthink.com/ -- your brain needs us!