$INC{Apache/Constants.pm} = 1;
my $constants = Test::MockObject->new();
$constants->fake_module('Apache::Constants');
$constants->mock('OK', sub { return 1 } );

warn "OK is " . OK . "\n";