Help for this page

Select Code to Download


  1. or download this
    use Apache::Constants qw(OK DECLINED AUTH_REQUIRED);

my $status = some_method();
return $status if ($status != OK);
  2. or download this
    $INC{Apache/Constants.pm} = 1;
my $constants = Test::MockObject->new();
...
$constants->mock('OK', sub { return 1 } );

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