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
"Christopher L. Everett" <[EMAIL PROTECTED]> writes:
> 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 class1 $self = fields::n
Christopher L. Everett ([EMAIL PROTECTED]) said something to this effect on
01/28/2001:
> package simian;
> use fields qw (name);
> sub new {
> my $type = shift;
> my class1 $self = fields::new(ref $type || $type);
> $self->{name} = 'Jane';
> return $self->{name}; # error here
> }
Wh
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 class1 $self = fields::new(ref $type || $type);
$self->{name} = 'Jane';
return $self->{name}; #