cgi and inheritance

[Patton, Billy]

I’ve recently inherited some code that hasn’t been touched in over 5 years. 
It’s all cgi and OOPerl.
I’ve ran across this one statement that I don’t understand.

$self-log-error(*)

I know the self
and I’ve traced the error to CGI::Application through inheritance.
But it’s the -log- that has me confused.
I have no class named log
I find no place that is does a new on log anywhere in the family tree.
I cannot find any log class anywhere in the family tree of inheritance.

Is this just a method of using a perl hash that I’m not familiar with?
Could it be rewritten as 
$self-{‘log’}-error(*);

Using perl 5.16.2
on MAC 10.9.5
--
To unsubscribe, e-mail: beginners-cgi-unsubscr...@perl.org
For additional commands, e-mail: beginners-cgi-h...@perl.org
http://learn.perl.org/

Re: cgi and inheritance

[John SJ Anderson]

On Mon, Oct 6, 2014 at 6:33 AM, Patton, Billy billy.pat...@h3net.com wrote:
 I’ve recently inherited some code that hasn’t been touched in over 5 years. 
 It’s all cgi and OOPerl.
 I’ve ran across this one statement that I don’t understand.

 $self-log-error(*)

That's calling the 'error()' method, on the result returned by calling
the 'log()' method, on the current object ($self).

You could also write that as:

my $log = $self-log();
$log-error(*)

(I'm assuming '*' is a stand-in for the actual arguments.)

chrs,
john.

--
To unsubscribe, e-mail: beginners-cgi-unsubscr...@perl.org
For additional commands, e-mail: beginners-cgi-h...@perl.org
http://learn.perl.org/