view release on metacpan or  search on metacpan

t/lib/Test/Apache2/API/Response.pm  view on Meta::CPAN

package Test::Apache2::API::Response;
BEGIN
{
    use strict;
    use warnings;
    use lib './lib';
    use parent qw( Test::Apache2::Common );
    use Apache2::Connection ();
    use Apache2::Const -compile => qw( :common :http OK DECLINED );
    use Apache2::RequestIO ();
    use Apache2::RequestRec ();
    # so we can get the request as a string
    use Apache2::RequestUtil ();
    use APR::URI ();
    use Apache2::API;
    use Scalar::Util;
    # 2021-11-1T17:12:10+0900
    use Test::Time time => 1635754330;
    use constant HAS_SSL => ( $ENV{HTTPS} || ( defined( $ENV{SCRIPT_URI} ) && substr( lc( $ENV{SCRIPT_URI} ), 0, 5 ) eq 'https' ) ) ? 1 : 0;
};

use strict;
use warnings;

# allow_credentials
# allow_headers
# allow_methods
# allow_origin
# alt_svc
# bytes_sent
# cache_control
# clear_site_data

sub connection { return( shift->_test({ method => 'connection', expect => 'Apache2::Connection', type => 'isa' }) ); }

# code
# content_disposition
# content_encoding
# content_language
# content_languages
# content_length
# content_location
# content_range
# content_security_policy
# content_security_policy_report_only
# cookie_new
# cookie_replace
# cookie_set
# cross_origin_embedder_policy
# cross_origin_opener_policy
# cross_origin_resource_policy
# cspro
# custom_response
# decode
# digest
# encode
# env
# err_headers
# err_headers_out
# escape
# etag
# expires
# expose_headers
# flush
# get_http_message
# get_status_line