#!perl
BEGIN
{
no
strict
'subs'
;
};
BEGIN
{
};
# 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__