Re: cgi and inheritance

2014-10-08 Thread jbdetroit 
I haven't seen any PErl code with -log- like that before. I've only seen code 
like that with = error(*).

-Original Message-
From: Patton, Billy billy.pat...@h3net.com
Sent: Oct 6, 2014 9:33 AM
To: beginners-cgi@perl.org beginners-cgi@perl.org
Subject: 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/




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

cgi and inheritance

2014-10-06 Thread 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

2014-10-06 Thread 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/