cgi and inheritance
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
On Mon, Oct 6, 2014 at 6:33 AM, Patton, Billy 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/