I am writing this as part of a module, so it prints fine in the main
but not in
the method...
Any suggestions .....
sub new{
while (my $hashRef = $sth->fetchrow_hashref()) {
foreach $keys(keys %$hashRef){
$self->{'_colData'}{$keys}=$$hashRef{$keys};
print "$self->{'_colData'}{$keys}\n"; # IT PRINTS FINE HERE
#print "$keys\t";
#print "$$hashRef{$keys}\n";
}
}
}
sub dump{
my $self = shift;
my ($keys, $n_col, $n_row);
foreach $keys(keys (%{$self->{'_colData'}})){
print $self->{'_colData'}{$keys}; IT IS NOT DOING IT HERE, I CALLING THE METHODS PROPERLY
}
my $getchar =<>;
}
Thanks and cheers always!!
Murli
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
