> 
> sub new {
>  my ($class, $r) = @_;
> 
>  return bless { r  => Apache::Request->new($r),
>                }, $class;
> }


 or

 sub new { 
        my ($class,$r) = @_;
        my $self = $class->SUPER::new($r);
        # do your own init ...
        return $self
}
        
TMTOWTDI, aaron

-- 
aaron ross . alias i, inc
     email . [EMAIL PROTECTED]
     phone . 215 545 6428

Reply via email to