如何检查Perl Apache请求对象

Question

我正在尝试检查Perl中的请求对象以调试问题。我正在尝试解决名为Eprints的Perl应用程序中的问题。在下面的子例程中，我想检查请求：

sub redirect
{
    my( $self, $url, %opts ) = @_;

    # Write HTTP headers if appropriate
    if( !$self->is_online )
    {
        print STDERR "ODD! redirect called in offline script.\n";
        return;
    }

    my $status = delete $opts{status_code} || 302;

    # my attempt to inspect the request
    #
    use Data::Dumper;
    print STDERR Data::Dumper::Dumper($self->request);

    EPrints::Apache::AnApache::send_status_line( $self->request, $status                 );
    EPrints::Apache::AnApache::header_out( 
        $self->request,
        "Location",
        $url );

    EPrints::Apache::AnApache::send_http_header( $self->request, %opts );

    return $status;
}

但我得到的是：

$VAR1 = bless( do{\(my $o = '139978388385952')}, 'Apache2::RequestRec' );

我不知道如何使用。我基本上只想要一个HTTP请求的字符串表示。我没有使用Perl的经验，我不知道如何处理这个对象！这看起来对任何人都是可识别的，还是看起来更具针对性？特定于Eprints应用程序。