Apache2::ASP::Mock::Connection - Mimics the Apache2::Connection object

Apache2-ASP documentation Contained in the Apache2-ASP distribution.

Index

Code Index:

NAME

Top

Apache2::ASP::Mock::Connection - Mimics the Apache2::Connection object

SYNOPSIS

Top

  my $conn = $Response->context->connection;
  unless( $conn->aborted )
  {
    $conn->client_socket->close();
  }# end unless()

DESCRIPTION

Top

This package mimics the Apache2::Connection object in a normal mod_perl2 environment, and is used by Apace2::ASP::API.

PUBLIC PROPERTIES

Top

aborted

Read-only.

Returns true or false, depending on whether the current connection is aborted.

client_socket

Returns the current Apache2::ASP::Mock::ClientSocket object.

BUGS

Top

It's possible that some bugs have found their way into this release.

Use RT http://rt.cpan.org/NoAuth/Bugs.html?Dist=Apache2-ASP to submit bug reports.

HOMEPAGE

Top

Please visit the Apache2::ASP homepage at http://www.devstack.com/ to see examples of Apache2::ASP in action.

AUTHOR

Top

John Drago <jdrago_999@yahoo.com>

COPYRIGHT

Top

Copyright 2008 John Drago. All rights reserved.

LICENSE

Top

This software is Free software and is licensed under the same terms as perl itself.

Apache2-ASP documentation Contained in the Apache2-ASP distribution. 
package Apache2::ASP::Mock::Connection;

use strict;
use warnings 'all';
use Apache2::ASP::Mock::ClientSocket;


#==============================================================================
sub new
{
  my ($class) = @_;
  
  my $s = bless {
    aborted => 0,
  }, $class;
  $s->{client_socket} = Apache2::ASP::Mock::ClientSocket->new( connection => $s );
  
  return $s;
}# end new()


#==============================================================================
sub aborted
{
  my ($s) = shift;
  @_ ? $s->{aborted} = shift : $s->{aborted};
}# end aborted()


#==============================================================================
sub client_socket
{
  $_[0]->{client_socket};
}# end client_socket()


#==============================================================================
sub DESTROY
{
  my $s = shift;
  undef(%$s);
}# end DESTROY()

1;# return true: