The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Test::AskAnExpert::Interface::Mock - Mock interface for testing Test::AskAnExpert

SYNOPSIS

  use Test::AskAnExpert;

  initialize('Test::AskAnExpert::Interface::Mock',
              answer  => 'always do this',
              comment => 'saying this about it',
              skip    => 'or skip because of this',
              error   => 'or give this error'
              never_answer => 0);

  # do some testing here to make sure Test::AskAnExpert
  # reacts properly.

DESCRIPTION

This is for internal testing. If you're re-implementing Test::AskAnExpert you might find it useful yourself.

AUTHOR

Edgar A. Bering, <trizor@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2007 by Edgar A. Bering

This library is free software; you can redistribute it and/or modify it under the terms of the Artistic 2.0 liscence as provided in the LICENSE file of this distribution.