The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

#!perl
BEGIN
{
use strict;
use warnings;
use lib './lib';
no strict 'subs';
use Test2::V0;
};
BEGIN
{
use ok( 'Apache2::API' ) || bail_out( 'Unable to load Apache2::API' );
};
# instantiate an Apache2::API object from command line, which use mock object
my $api = Apache2::API->new;
# expect an empty hash reference
my $accept = $api->request->accept;
is( $accept => undef, 'accept' );
done_testing();
__END__