[EMAIL PROTECTED] (Vasily Petrushin) wrote:
>On Tue, 30 Jan 2001, Ken Williams wrote:
>>sub handler ($$) {
>> my ($self, $q);
>>
>> -> $self = $self->new(); ??? 8-[ ] who is $self->new() ???
>
> $self = PackageName->new();
This is a Perl question and not a mod_perl question, s
On Tue, 30 Jan 2001, Ken Williams wrote:
> [EMAIL PROTECTED] (Joe Schaefer) wrote:
>
> >
> >"Christopher L. Everett" <[EMAIL PROTECTED]> writes:
> >
> >> sub handler ($$) {
> >> my ($self, $q);
> >>
> >> my $r = Apache::Request->new($q);
> >>
> >> # send headers here
> >>
> >> print $
[EMAIL PROTECTED] (Joe Schaefer) wrote:
>
>"Christopher L. Everett" <[EMAIL PROTECTED]> writes:
>
>> sub handler ($$) {
>> my ($self, $q);
>>
>> my $r = Apache::Request->new($q);
>>
>> # send headers here
>>
>> print $self->name;
>
>$self is a string ("simian"), n
"Christopher L. Everett" <[EMAIL PROTECTED]> writes:
> sub handler ($$) {
> my ($self, $q);
>
> my $r = Apache::Request->new($q);
>
> # send headers here
>
> print $self->name;
$self is a string ("simian"), not an object ref; for this
line to work, you need to
Sorry about that. It was 3 AM after 12 hours beating my brains out.
I guess I didn't have any left.
Check these modules:
package simian;
use fields qw (name);
use strict; #very important!
use Apache;
use Apache::Request;
use Apache::Constants qw(:common);
sub new {
my $type = shift;
my si
