Can't call method is_initial_req without a package or object reference at .........

[Martin Moss]

All,

I'm having some problems with Apache giving me grief, or most probably me
getting my knickers in a complete twist.
I get the following error:-

Can't call method is_initial_req without a package or object reference at
.

It seems to happen when my URL ends like this:-

/somepath/16
but not when it ends like this:-
/somepath/16/



Below is the code which is where the error occurs.
sub handler {
  my $r = My::Apache::Request-instance(shift);

  print STDERR Dumper($r);
  print STDERR \n\n\nBOOOBS\n\n\n\n\n;
  die $r not defined unless $r;
  return OK unless $r-is_initial_req();#ERROR OCCURS HERE
  my $uri = $r-uri;
  my $log = $r-log;


..
}

The handler is simply a multiplexer which based upon a database
configuration adds the relevant method handler to the handlers queue.

The 'instance' routine for My::Apache::Request is inheritted from the
Apache::Request class.

the 'new' routine for My::Apache::Request is as follows:-

sub new
{

  my ($class, $r) = @_;

  my $length=32;

  unless ($r-is_main )
  {
print STDERR Apache::Request is not Main, Getting Main\n;
print STDERR Dumper($r);
$r=$r-main;
print STDERR Main Apache::Request is:-\n;
print STDERR Dumper($r);
print STDERR DECLINING\n;
return DECLINED;
  }
  unless ($r)
  {
print STDERR making a new Request object\n;
$r = Apache-request;
  }



  $r=Apache::Request-new($r);


  my $self = bless {_r = $r}, $class;


  my $t=substr(Digest::MD5::md5_hex(Digest::MD5::md5_hex(time(). {}. rand().
$$)), 0, $length);
  $self-{XX_created_time_XX}=$t;
  my @params=$self-param();
  print STDERR Here's the Parameters for $class\n;
print STDERR Dumper(@params);
  my $lang_id=$self-param('lang_id');
  if ($lang_id)
  {

$lh=My::Maketext-get_handle($class,$lang_id);
  }
  else
  {
   $lh=My::Maketext-get_handle($class,My::Conf::DEFAULT_LANGUAGE_ID);
  }

  print STDERR Creating .ref($self). $t\n;
  #$self-interpret_uri;
  return $self;
}

Re: Can't call method is_initial_req without a package or object reference at .........

[Martin Moss]

Ok, that makes sense, thank you:-)
But 'What' should I return, is $r-main the right thing to return?

unless ($r-is_main )
{
  print STDERR Apache::Request is not Main, Getting Main\n;
  print STDERR Dumper($r);
  $r=$r-main;
  print STDERR Main Apache::Request is:-\n;
  print STDERR Dumper($r);
  print STDERR DECLINING\n;
  return DECLINED;
}

 you're not returning an object from your constructor on internal redirects
:)

 HTH

 --Geoff

Re: Can't call method is_initial_req without a package or object reference at .........

[Martin Moss]

Thanks Geoffrey.

Marty
- Original Message - 
From: Geoffrey Young [EMAIL PROTECTED]
To: Martin Moss [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Sent: Tuesday, June 17, 2003 4:23 PM
Subject: Re: Can't call method is_initial_req without a package or object
reference at .




 Martin Moss wrote:
  Ok, that makes sense, thank you:-)
  But 'What' should I return, is $r-main the right thing to return?

 I've found that it's pretty rare that you want to mess with main vs
subrequest logic
 yourself.  instead, I would just make the constructor return an object
based on whatever
 mod_perl passes it which is, in turn, whatever request record Apache deems
to be the
 proper one for the current (sub)request.

 so new() should probably just be something like

 sub new {

my ($class, $r) = @_;

$r = Apache::Request-new($r);

my $self = bless {_r = $r}, $class;

$self-init();

return $self;
 }

 if it is important to insure that you only populate object attributes
once, even in the
 case of internal redirects or lookups, you could hang attributes off of
pnotes in the main
 request

 sub init {

my $self = shift;

$t = ubstr(Digest::MD5...);

if ($r-main) {
  $self-{XX_created_time_XX} = $t;
  $self-{_r}-pnotes(XX_created_time_XX = $t)
}
else {
  $t = $self-{_r}-main-pnotes('XX_created_time_XX');
}
...
 }

 or somesuch.  untested, but you get the idea :)

 HTH

 --Geoff